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Introduction 


Let me start out by saying that Iam an enthusiastic user of Microsoft C 6.0 
(MSC 6.0) and think that it’s a very professional compiler. I’m using MSC 
6.0 for both standard DOS programming and Windows 3.0 development 
work. I have found MSC 6.0 to be rock solid. There are other compilers that 
might compile faster than MSC 6.0 but they, for the most part, don’t pro- 
duce better code. There might be another compiler or two that produces a 
tad better code under certain circumstances, but how many compilers 
support Windows 3.0 development? As of now, I can live with MSC 6.0 as 
the only C compiler installed on my system. It’s more than good enough 
for DOS and Windows 3.0 programming. 

Although there are quite a few new wrinkles to MSC 6.0, this book 
sticks quite closely to exploring compiler features that relate to the theme of 
building optimized libraries. The book begins by exploring the use of spe- 
cific custom compiler switches and how their use alters executable program 
code. You’ll then learn the ins and outs of using Microsoft’s new _fastcall 
(passing parameters in registers instead of on the stack) convention. Also 
discussed is Microsoft's MASM 5.1 macro assembler. The updated MASM 
5.1 provides you with very powerful PROC and USES directives that make 
writing multimodel, assembly-generated library functions extremely easy. 

Once MSC 6.0’s _fastcall and optimization switches are discussed in 
conjunction with MASM 5.1’s new directives, the library-building proce- 
dure begins in earnest. You’ll learn how to utilize Microsoft’s library man- 
ager program to build small-, medium-, and large-model libraries. In olden 
times, writing an assembly-generated object module which accessed data 
contained in far data segments required by the large memory model could 
prove dicey business for neophyte assembly programmers. MASM 5.1’s 
new PROC and USES directives dramatically ease the programmer's bur- 
den for writing large-model assembly object modules. 

Using the discussed optimization tools and techniques, you will begin 
to systematically add keyboard, mouse, sound, rectangle, and windowing 
routines to your expanding TAB library. Every library function is fully com- 
mented and a generously documented demonstration program clearly 
shows how the function is used in a C program. 


The book concludes with a discussion of how to use your newly cre- 
ated MSC 6.0 optimized library to build friendly user interfaces in a Win- 
dows 3.0-like fashion. Routines are provided to create a mouse and 
keyboard driven menu-bar/drop-down window and a Lotus-style user 
interface. 

In the Windows 3.0 programing environment you create an RC 
(Resource Construction) file that (using a specialized syntax and vocabu- 
lary) permits you to easily design an interface by listing menu-bar items 
and drop-down items. 

The TAB library programming environment presented in this book 
allows you to create lists of menu-bar items and drop-down window items 
using standard C syntax. An event queue handler allows you to process 
both mouse-driven and keyboard-driven events and provides you with 
information identifying which menu item has been selected. 

The process of generating a user interface using the routines pre- 
sented in this book (in simplified form here) looks like this: 


1. Create your Window item arrays using Standard C 
2. Pass the array addresses to the window-generation routines 


and that’s all. Understand, however, that although no text-based user in- 
terface will ever prove as pretty as a graphical interface (in my opinion, of 
course), using the mouse with menu bars and drop-down windows still 
proves quite user friendly for text-based application programs. 


Required programming tools 


The routines presented in this book have been specifically designed for 
and tested using Microsoft C 6.0 and Microsoft Macro Assembler 5.1. For 
the most part, concentration has been placed on these programming 
tools’ new features and much code presented in this book will not compile 
or assemble using earlier versions of Microsoft C or Microsoft Macro As- 
sembler (MASM). 


How to read this book 


I recommend that you read this book sequentially, which will empower 
you to go and independently add routines to the MSC 6.0 TAB library that 
is presented in this book. You’ll have a handle on one decision-making 
process that will help you to select optimizing strategies to use in creating 
your new object modules. 

As you work your way through the book, know that I'd love to get feed- 
back from you concerning improvements on the code presented in the 
book or I'd like to see programs you have created using the TAB library. 
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Introduction to optimization 


Programmers always try to write the smallest programs that ‘“‘get the job 
done’”’ in the least time. In “‘real-world’’ programming there is somewhat 
universal agreement that assembly language programs, for the most part, 
exhibit the best performance. Unfortunately, assembly source code can be 
very hard to maintain and is not always the most productive language. 

I program in C and assembly. Even though I have more years logged 
into assembly programming than C, I’m a far more productive coder in C 
than assembly. Although I now spend more development time using C 
than assembly, assembly remains deep in the center of my heart. 

In an effort to help C programmers write impressively performing pro- 
grams, compiler designers have added many bells and whistles to improve 
C-generated code. Microsoft C 6.0 has taken (in my opinion) a big step 
from version 5.1 by providing an option to pass parameters in the registers 
as opposed to the on-the-stack method and providing an inline assembler 
facility that permits you to directly nest standard assembly in your C 
source. 

Here’s a quick overview of the custom Microsoft C 6.0 compiler optimi- 
zation options. 


Optimize for speed 

Optimize for size 

Assume no aliasing 

Loop optimizations 

Disable unsafe loop optimizations 
Aggressive optimizations 

Remove stack probes 

Global register allocation 

Common subexpression optimization 


e Consistent floating point results 
e Optimize for maximum efficiency 


In this book, Microsoft C 6.0 compiler options may be invoked in two 
ways. The first is from the command line. When you invoke a custom com- 
piler option from the command line all the functions contained in the 
source you are compiling will be optimized in the same fashion. For pur- 
poses of library building, where I most often try to put one function in one 
object module, controlling custom compiler options from the command 
line is a fine idea. 

However, let’s say that you have a source file with ten functions. Some 
of the functions you wish to optimize for speed, and other functions you 
wish to optimize for size. In that case, you will need to use Microsoft C 
6.0’s pragma statements. The pragma statement permits you to set differ- 
ent customization options for functions within the same source file. The 
pragmas permit you ultimate flexibility in function optimization. Pragmas 
are presented in the discussion of the command line invocation for speci- 
fied custom compilation options. — | 

There are times, as all Windows programmers know, that you might 
need to access object modules that contain non-C parameter-passing 
schemes. Microsoft C 6.0 contains the following language support calling 
conventions: 


Standard C on-the-stack 
Register-based C 
FORTRAN 

Pascal 


It is not within the scope of this book to explore all the ins and outs of 
every Microsoft C 6.0 custom optimization option and every function call- 
ing convention. Rather, I’ve selected to take a careful look at exploring the 
implication of using the following custom compiler options. 


/Ot Optimize for speed 

/Oi Generate intrinsic functions 
/Ol Improve loop performance 
/Gs Remove stack probes 


Later in this chapter you'll see how invoking some of these custom 
switches alters program size and performance. 

Following the discussion of the custom compiler options a discussion 
of the inline assembler is presented. The results of using the inline assem- 
bler as a method of optimizing is then compared to the results of using 
custom compiler options to optimize sections of your program. 

Next, using the new _fastcall (passing parameters in the registers as 
opposed to the registers being passed on the stack) is discussed. The _fast 
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call discussion provides a nice launching point for a look at the new USES 
and PROC directives provided by MASM 5.1. 

This long chapter contains all the basic elements needed to help you 
get started in building both optimized libraries and programs using Micro- 
soft C 6.0. Take your time when reading through the text and figures. It 
will broaden your understanding of what’s going on at a deep level. 


The jiffy timer 

The PC has a timer-based interrupt that is invoked 18.2 times a second. 
The 18.2 times a second translates into approximately 54/1000 times a 
second. By human standards 54/1000 of a second comes in a snap. By 
computer standards, it may be considered an eon of time. Nevertheless, 
having a timer that reports jiffys (54/1000 of a second) can prove useful for 
the purposes of this book. Using the timer to report how much time it 
takes a portion of code to execute provides us with a nice measure of pro- 
gram execution. 

Armed with the jiffy timer and being able to explore program size 
along with the assembly code generated, gives you all the information 
required to make intelligent optimizing strategy decisions. 

TIMER.ASM, shown in FIG. 1-1, is the assembly source code to the jiffy 
timer. Assemble the small model version of TIMER.OBJ by using MASM 
5.1. Here’s the command line that assembles TIMER.ASM. 


masm /ML /Dmdl = 1 timer; 


1-1 The source code listing to TIMER.ASM. 


+ TIMER.ASM 


; Prepare Segment ordering 

DOSSEG 
; Select memory model and language 
if mdl eq 1 

-MODEL SMALL,C 
elseif mdl eq 2 

.MODEL = MEDIUM, C 
else 

»~MODEL LARGE ,C 
endi f 
: begin code segment 

. CODE 


; declare public 
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1-1 Continued. 


PUBLIC initialize_timer, remove_timer 
PUBLIC get_jiffy,get_jiffmin 

PUBLIC get_jiffhour,get_ljiffy 

PUBLIC reset_timer,start_timer,stop timer 


initialize_timer 
This function installs the 


newtimer procedure in 
interrupt 1C (the timer) 


me Me Ms We We Be WS 


initialize_timer PROC 
jmp —_ byp 


oldic DW 
busy1c DW 
jiffy DW 
jiffmin OW 
jiffhour OW 
jiffylsw OW 
jiffymsw DW 
timerfilg DW 


~~ 


yoaoqo0oo0o0°oon” 


byp: 


s save the old 1C vector 


push DS 
push ES : save ES 
push CS 
pop DS 


mov AX,351Ch 3; get existing 1c vector 
int 21h 

mov oldic,BX ; save ic offset 

mov oldic+2,ES ; save 1c segment 

mov DX,offset newtimer 

mov AX,251Ch 


int 21h 
pop ES 
pop DS 
ret 


initialize timer ENDP 


get_jiffy 


This function returns the 
jiffy count between timer 
start and stop in the AX register 


™e ms Me Be Me We MS 


get_jiffy PROC 
mov AX,CS: jiffy] 
ret 
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1-1 Continued. 
get_jiffy ENDP 


get_jiffmin 
This function returns the 


number of minutes between jiffy 
counter start and stop 


=e Be Be Be Be Be BW 


get_jiffmin PROC 
mov AX,CS: Cjiffmin) 
ret 

get_jiffmin ENDP 


get_jiffhour 


: 
a 
; This function returns the 
; number of hours elapsed 

: between the jiffy counter 
; start and stop 

g 


et_jiffhour PROC 
mov AX, CS: [jiffhour] 
ret 

get_jiffhour ENDP 


get_ljiffy 


This function returns a 
long (32 bit) jiffy count 
between the jiffy counter 
start and stop in the 
DX:AX registers 


™e Be Be Be Be Boe Ze Bs We 


get_ljiffy PROC 
mov AX,CS: Cjiffylsw] 
mov DX,CS: [ji f fymsw] 
ret 

get_ljiffy ENDP 


addi jiff 


This function adds 1 jiffy to the 
32 biut counter 


me Me Me Te We BW 


addijiff PROC 
add jiffylsw,1 
adc Jiffymsw,0 
ret 

add1jiff ENDP 


s 
‘ 


; start_timer 
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1-1. Continued. 


This function starts the 
jiffy counter 


™e we we & 


start_timer PROC 
mov CS: [timerflg] ,0 
ret 

start_timer ENDP 


stop_timer 


This function stops the 
jiffy timer from counting 


me Ge Be Be Ws Ws 


stop_timer PROC 
mov CS: (timerflg],1 
ret 

stop_timer ENDP 


newt imer 


This internal function in the 
int 1C replacement 


me Ss Ms Be MWe We 


newtimer PROC FAR 
sti s call old 1C 
pushf 
assume DS:nothing 
call DWORD PTR oldic 


cmp CS: [timerflg],1 : flag set? 


je loc3 3; don't scroll gears 

call addtjiff : move jiffy gear 

inc CS: Cjiffy] : move 16 bit jiffy gear 
cmp CS: (jiffy) , 1092 ; 1 minute elapsed? 

jne loc2 : no -> exit 

mov CS: (jiffy) ,0 3;- reset 16 bit jiffy gear 
Inc CS: (jiffmin] 3; increment minute gear 


cmp = CS: (ji f fmin] ,60 ; 1 hour elapsed? 


jne loc2 3 no -> exit 

mov CS: [jiffmin] ,0 s reset minute gear 

inc CS: Cjiffhour] s increment hour gear 
loce: s exit label 
loc3: 

iret ; return from interrupt 


newtimer ENDP 
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1-1 Continued. 


’ 
; remove_timer 


& 
; This function restores the 
; original 1C interrupt vector 


e 


remove_timer PROC 
push DS ; save DS 
mov DX, Loldic] 
mov DS ,oldict+2 
mov AX, 251Ch 


int 21h 
pop DS ; testore DS 
ret 


remove_timer ENDP 


; reset_timer 


; This function resets the 
; jiffy timer to the start (0) 
; position 
reset_timer PROC 

mov jiffy,0 

mov jiffmin,0 

mov jiffhour ,0 

mov Jiffylsw,0 

mov jiffymsw,0 

ret 
reset_timer ENDP 


END 


: 
; End of TIMER.ASM 


Sema nrnwneweannwnenwnewnnxaewneaonwnewawownaneweenwneewwanee wo 


Let’s take a closer look at the command line switches. 


(ML The /ML switch turns case sensitivity on. As C is a case-sensi- 
tive language, I always recommend that any assembly-gen- 
erated object modules be assembled using case sensitivity 
switched on. 


/Dmdi=1 The /D option is used to define the mdl variable. The mdl vari- 
able is used to select the desired memory model. For pur- 
poses of all the assembly modules presented in this book, 
mdl will be equal to 1 for the small model, mdl will be equal to 
2 for the medium model, and mdl will be equal to 3 for the 
large model. 
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Because many assembly-generated object modules will be presented 
in this book, I’ve written three batch files to facilitate assembling assem- 
bly source in the three models supported in the book. 


AS.BAT Assemble for the small memory model 
masm /ML /Dmdl=1 %1; 

AM.BAT Assemble for the medium memory model 
masm /ML /Dmdl= 2 %1; 

AL.BAT Assemble for the large memory model 
masm /ML /Dmdl=3 %1; 


For example, let’s assemble TIMER.ASM for use in the small model. 
Use your text editor to create the TIMER.ASM listing along with the 
AS.BAT, AM.BAT, and AL.BAT files. At the command line, type: 


as timer 


and press Enter. MASM 5.1 will assemble TIMER.ASM and create the 
small model TIMER.OBJ object module. 

In chapter 3 you will use Microsoft’s library manager program to 
begin building the small, medium, and large model libraries. For the pur- 
poses of this chapter, though, you will only be working in the small mem- 
ory model. 


/Ot Compile for speed 


The /Ot custom compiler switch invokes the compile for speed option. If 
you select the /Ot switch under certain circumstances your code size might 
increase. The pragma to invoke the optimize-for-speed option looks like 
this: 


#pragma optimize("t” ,on) // optimize for fastest code 


Note the first parameter after #pragma optimize is "t"”. This reflects the “t” 
in the command line switch /Ot. Here’s how to turn the optimize-for-speed 
option on for a function and then how to turn it off. 

#pragma optimize("t” ,on) // soeed optimize on 

void sort(char “array) 

{ 

j 

#pragma optimize("t” off) // soeed optimize off 


PROG1.C, shown in FIG. 1-2, is a simple program that demonstrates 
how to use the jiffy timer and tests the performance of a nested loop. Note 
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1-2 The source code listing to PROG1.C. 


UU 
If 

// PROG1.C 

// 

// Tests the TIMER Routines 
TULL 
// include files here 

#include <stdio.h> 

#include <string.h> 

#include <tproto.h> 

// declare function prototypes 

void main(void); 

extern initialize _timer(); 

extern remove_timer(); 

int get_jiffy(void); 

int get_jiffmin(void); 


int get_jiffhour(void); 
unsigned long get_ljiffy(void); 


void 

main() 

{ 

int level1, level2; 

char dest [80]; 

char srce[12] = "Hello Chuck!"; 
// initialize the timer 
initialize_timer(); 

// stop the timer 
stop_timer(); 

// reset the timer to 0 
reset_timer(); 


// print initial timer values 


printf ("Jiffy Count = ud\n", get_jiffy()); 


// start the timer 

start_timer(); 

// perform test loop 

for(level1=0; level1<2000; level1++) 


{ 
for(level2=0; level2<200; level2++) 
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1-2 Continued. 


{ 
memset(dest,0,80); // set memory 
strepy(dest,srce); // copy string 
> 


// stop the jiffy timer 

stop_timer(); 

// print the timer results in jiffys 
printf("Jiffy Count = %d\n",get_jiffy()); 
// restore the original int 1C vector 
remove_timer(); 


} 


that the function start_timer(...) is called just before the nested loop starts 
operation and function stop_timer(...) is called after the looping sequence is 
finished. The nested for(...) loops repeat the following operations 400,000 
times: 


memset(dest,0,80); // set 80 bytes of dest to 0 
strcpy(dest,srce); // copy 12 bytes from srce to dest 


All timing reports for the test program were run on my 25MHz 386 PC 
clone. Timing results on your computer will differ. 

First, let’s try compiling and lining PROGI1.C using Microsoft C 6.0’s 
default options. Type in: 


cl prog1.c timer.ob} 
and press Enter. Running PROG1.EXE demonstrates the use of TAB’s jiffy 
timer. The results are as follows: 

Compile PROG1.OBJ PROGI.EXE PROG1.EXE 

Options Size Size Speed 

(none) 620 6353 264 jiffys 

These results provide us with base-line comparison statistics. Let’s try 


compiling and linking PROG1.C using the /Ot, compile for speed, custom 
command-line switch. 


cl /Ot prog1.c timer.obj 
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The results are as follows: 


Compile PROG1.0BJ PROGI1.EXE PROGI1.EXE 


Options Size Size Speed 
(none) 620 6353 264 jiffys 
/Ot 620 6353 264 jiffys 


As you can see, there is no difference in code size or program perfor- 
mance. I suspect that this optimization has taken place as the default con- 
dition. 

Figure 1-3 presents the object disassembly for PROG1.OBUJ. Scan the 
listing and find the following line: 


Call start_timer 


The code you will be interested in exploring appears directly below 
function start_timer call, and continues until the following line: 


Call stop_timer 


The section of code between function start_timer and function stop_timer 
is the critical section of code that is timed by your jiffy timer. 


1-3 The disassembled listing to PROG1.OBu. 


Module: prog1.c 
Group: 'DGROUP' CONST, BSS, DATA 


Segment: '_TEXT' WORD 00000094 bytes 


0000 55 _main push bp 

0001 8b ec mov bp, sp 

0003 b8 60 00 mov ax ,0060H 
0006 e8 00 00 call __aNchkstk 
0009 57 push di 

000a 56 push S$] 

000b 8d 7e al lea di, -60H (bp] 
000e be 00 00 mov si,offset L6 
0011 8c dd mov ax,Ss 

0013 8e c0 mov es , ax 

0015 b9 06 00 mov cx, 0006H 
0018 f3 a5 repe MOVSW 

001a e8 00 00 call. _initialize_timer 
001d e8 00 00 call _stop_timer 
0020 e8 00 00 call _reset_timer 
0023 e8 00 00 call _get_jiffy 
0026 50 push ax 

0027 b8 Od 00 mov ax, offset L7 
002a 50 push ax 

002b e8 00 00 call _printf 

002e 83 c4 04 add sp,0004H 
0031 e8 00 00 call _Start_timer 
0034 c/ 46 ae 00 00 mov word ptr -52H[{bp] , O000H 
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1-3 Continued. 


0039 
003b 
003c 
003 f 
0044 
0046 
0049 
004a 
004c 
004d 
0050 
0051 
0054 
0057 
005a 
005b 
005e 
005f 
0062 
0065 
0067 
0068 
006b 
0070 
0072 
0077 
0079 
007a 
007d 
0080 
0081 
0084 
0085 
0088 
008b 
008e 
008f 
0090 
0092 
0093 


8b e5 


ae 
ae 


ac 


c8 00 


dd 07 


00 00 


No disassembly errors 


L1 
L2 


L3 
L4 


L5 


L4 


word ptr -54H [bp] 
word ptr -54H[bp] ,00c8H 
L3 | 
ax, 0050H 

ax 

ax, ax 

ax 

ax, -50H [bp] 

ax 

_memset 

sp, 0006H 

ax, -60H [bp] 

ax 

ax, -50H [bp] 

ax 

_strcpy 

sp,0004H 

L1 


word ptr -52H[bp] 

word ptr -52H{[bp] ,O7d0H 
L5 

word ptr -54H[bp] ,Q000H 
L2 


_stop_timer 
_get_jiffy 
ax 

ax, offset L8 
ax 

_printf 
sp,0004H 
_remove_timer 
si 

di 

sp, bp 

bp 


Segment: ' DATA' WORD 00000031 bytes 
48 65 6c 6c 6f 20 43 68 L6 


0000 
0008 
000d 
0015 
001d 
001f 


0027 
002f 


No disassembly errors 


75 63 6b 21 00 


4a 69 66 66 79 20 43 Of L7 
75 6e 74 20 3d 20 25 64 


Oa 00 


4a 69 66 66 79 20 43 6f L8 
75 6e 74 20 3d 20 25 64 


Oa 00 


Hello Ch 
uck!. 

Jiffy Co 
unt = 4d 


Jiffy Co 
unt = %d 
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/Oi Compile with intrinsic function 


The /Oi switch invokes the intrinsic function compilation option. This 
function inserts the code for the function directly in the object file. The 


intrinsic option works with the following standard library functions: 


Intrinsic Functions 


Description 


abs(...) Calculate absolute value 
_disable(...) Disable interrupts 
_enable(...) Enable interrupts 
fabs(...) Absolute of floating point 
inp(...) Input byte from port 
inpw(...) Input word from port 
labs(...) Absolute of long int 
Irtol(...) Rotate bits left 

Irtor(...) Rotate bits right 
memcmp(...) Compare memory 
memcpy(...) Copy memory 
memset(...) Set memory to value 
outp(...) Output byte at port 
outpw(...) Output word at port 
rotl(...) Rotate bits left 

rotr(...) Rotate bits right 
strcat(...) Append string 
strcmp(...) Compare string 
strcpy(...) Copy string 

strlen(...) Get string length 
strset(...) set string 


You may enable selected functions from the intrinsic functions list 


with the following pragma: 
#pragma intrinsic(function) 


In the case of PROG1.C, you could enable the intrinsic function opti- 
mization for function memset(...) and function strcpy with the following prag- 
ma statement: 


#pragma intrinsic(memset,strcpy) 


I chose to enable the intrinsic function optimization from the com- 
mand line in PROGI.C because it permitted me to compile one source file 
(PROG1.C) and explore the impact of different custom compilation optimi- 
zation options. 

If you enable intrinsic function optimization from the command line, 
only those functions listed on the intrinsic function list will be affected. 
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/Ol Compile for loop optimization 


The /Ol has been designed to help execute looping sections of code more 
quickly. The pragmas for turning on and off loop optimization are: 


#pragma loop_opti(on) // loop optimization on 
#pragma loop_opt(off) // loop optimization off 


Microsoft’s Advanced Programming Techniques manual recommends 
using the /Oa command line option in conjunction with /Ol. The aliasing 
option ensures that the loop optimization techniques will be applied as 
often as possible. 


/Gs Compile without stack probes 


The /Gs option removes the compiler-invoked routine that checks for stack 
overflow problems. Stack overflow checks will prove important during pro- 
gram development but are not needed for final program release. PROG1.C 
is a Simple program and in no danger of stack overflow conditions. 

Now that the /Oi, /Ol, /Oa, and /Gs custom compilation switches have 
been introduced, let’s recompile PROGI.C using these new optimization 
options. At the command line, type in: 


cl /Oi /Ol /Oa /Gs prog1.c timer.ob| 


and press Enter. 
Let’s compare the statistics from the /Ot option to the /Oi, /Ol, /Oa, and 
/Gs options. 


Compile PROG1.0OBJ PROGI1.EXE PROG1.EXE 
Options Size Size Speed 
(none) 620 6353 264 jiffys 

[Oi /Ol\/Oa/Gs 564 6241 264 jiffys 


The reduction in code size could certainly be predicted because the 
/Gs option removes the stack overflow checking code. However, the time 
required for loop execution remained the same according to the jiffy timer. 
If the nested 400,000 loop iteration loop executions could not be improved 
by more than one jiffy, then the right compiler optimization options were 
not selected. 

Figure 1-4 presents the disassembly to PROG1.OBJ, which was com- 
piled using the /Oi, /Ol, /Oa, and /Gs options. Once again, examine the por- 
tion of FIG. 1-4’s listing falling between functions start_timer(...) and 
stop_timer(...). 

However, we’re not done yet. Let’s try to reverse engineering here and 
pull out the /Ol and /Oa switches. Another comparison of statistics provides 
a surprise. 
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1-4 The dissassembled listing to PROG1.OBuJ using the /Oi, /Ol, /Oa, and /Gs switches. 


Module: progi.c 


Group: 'DGROUP' CONST, BSS, DATA 


Segment: '_TEXT' WORD 00000086 bytes 


0000 
0001 
0003 
0006 
0007 
0008 
000b 
000e 
0010 
0012 
0015 
0017 
001a 
001d 
0020 
0023 
0024 
0027 
0028 
002b 
002e 
0031 
0036 
003b 
003d 
0040 
0043 
0044 
0045 
0047 
004a 
004d 
0050 
0052 
0054 
0056 
0058 
005a 
005c 
005e 
0060 
0062 
0065 
0067 
006a 
006c 
006f 
0072 
0073 
0076 
0077 
007a 
007d 


55 

8b ec 
83 ec 
57 

56 

8d 7e 
be 00 
8c d0 
8e c0 
b9 06 
f3 a5 
e8 00 
e8 00 
e8 00 
e8 00 


b8 Od 


64 


a0 
00 
00 
00 
00 
00 
00 
00 
00 
04 
00 
9c dd 07 
Je c8& 00 


00 
b0 


a 
ff 


9e 
9c 


00 
00 


00 


00 


04 


00 


_main 


bp 

bp, sp 
sp,0064H 

di 

si 

di, -60H [bp] 
si,offset L3 
ax,Ss 

es, ax 

cx, 0006H 
MOVSW 
_initialize_timer 
_Stop_timer 
_reset_timer 
_get_jiffy 

ax 

ax, offset L4 
ax 

_printf 
sp,0004H 
_Start_timer 
word ptr -64H[bp] ,07d0H 
word ptr -62H[bp] ,00c8H 
ax, aX 
cx,0050H 

di, -50H [bp] 
ss 

es 

stosb 

di, -60H [bp] 
s1,-50H [bp] 
cx, Off ffH 
ax , aX 

scasb 

CX 

di,cx 

di,si 

cx, 1 

movsw 

CX, CX 

movsb 

word ptr -62H [bp] 
L2 

word ptr -64H[bp] 
L1 
_Stop_timer 
_get_jiffy 

ax 

ax, offset L5 
ax 

_printf 
sp,0004H 
_remove_timer 
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1-4 Continued. 


0080 5e pop si 

0081 5f pop di 
0082 8b e5 mov sp, bp 
0084 5d pop 3 
0085 c3 ret 


No disassembly errors 


Segment: ' DATA' WORD 00000031 bytes 


0000 48 65 6c 6c 6f 20 43 68 L3 - Hello Ch 

0008 75 63 6b 21 00 - uck!., 

000d 4a 69 66 66 79 20 43 6f L4 - Jiffy Co 

0015 75 6e 74 20 3d 20 25 64 - unt = &d 

001d Oa 00 ae 

O01f 4a 69 66 66 79 20 43 6f L5 - Jiffy Co 

0027 75 6e 74 20 3d 20 25 64 - unt = Xd 

002f Oa 00 ee 

No disassembly errors 
Compile PROG1.0OBJ PROGI1.EXE PROG1.EXE 
Options Size Size Speed 
(none) 620 6353 264 jiffys 
/Oi/Ol/Oa/Gs 564 6241 264 jiffys 
/Oi /Gs 582 6257 253 jiffys 


The looping optimization has been removed and program size has 
increased. However, for the first time, program execution time has de- 
creased. The 11-jiffy decrease in time cashed in to a 4.1 percent savings. 
Not really significant, but a start nonetheless. 

There’s a lesson here. The lesson tells me that when I play with cus- 
tom compilation options I had better check out the results and not take 
the manual’s words at face value. I’m sure that there are many, many cir- 
cumstances where invoking the loop optimization option will in fact in- 
crease program performance, but my simple nested FOR looping sequence 
is not one of them. 

Figure 1-5 presents the disassembled listing to PROG1.OBJ where the 
/Oi and /Gs compilation optimization options were invoked. 

Before we move on to exploring the use of the wonderful and new 
inline assembler, let’s try one more compilation of PROGI.C using only 
the /Oi option. At the command line, type: 


cl /Oi prog1.c timer.obj 


and press Enter. 
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1-5 The disassembled listing to PROG1.OBU using the /Oi and /Gs switches. 


Module: prog1.c 


Group: 'DGROUP' CONST, BSS, DATA 


Segment: '_TEXT' WORD 00000098 bytes 


0000 
0001 
0003 
0006 
0007 
0008 
000b 
000e 
0010 
0012 
0015 
0017 
001a 
001d 
0020 
0023 
0024 
0027 
0028 
002b 
002e 
0031 
0036 
0038 
003b 
0040 
0042 
0044 
0047 
004a 
004b 
004c 
004e 
0051 
0054 
0057 
0059 
005b 
005d 
005f 
0061 
0063 
0065 
0067 
0069 
006b 
006c 
006f 
0074 
0076 
007b 
007d 
007e 


55 


81 7e ac c8& 00 


8d 7e al 
b9 ff ff 


ff 46 ae 
81 7e ae dO 07 


c7 46 ac 00 00 


e8 00 00 


_main 


L1 
L2 


L3 
L4 


L5 


bp 
bp, sp 
sp,0060H 
di 


Si 

di, -60H [bp] 
si,offset L6 
ax,Ss 

es , AX 

cx, 0006H 

movsw 
_initialize_timer 
_stop_timer 
_reset_timer 
_get_jiffy 

ax 

ax, offset L7/ 

ax 
_printf 

sp,0004H 
_start_timer 

word ptr -52H[bp] ,O000H 
L4 

word ptr -54H[bp] 
word ptr -54H[bp] ,00c8H 
L3 

ax, aX 

cx,0050H 

di, -50H [bp] 


stosb 

di, -60H [bp] 
si,-50H [bp] 
cx, Off f fH 
ax, ax 
scasb 

cx 

di,cx 

di,si 

cx, 1 

MOVSW 

CX, CX 
movsb 

L1 


word ptr -52H [bp] 

word ptr -52H[bp] ,O7d0H 
L5 

word ptr -54H[bp] ,O000H 
L2 


_stop_timer 
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1-5 Continued. 


0081 e8 00 00 call _get_Jjiffy 
0084 50 push ax 

0085 b& 1f 00 mov ax, offset L8 
0088 50 push ax 

0089 e8 00 00 call _printf 

008 83 c4& 04 add sp,0004H 
OO8f e8 00 00 call _remove_timer 
0092 5e pop si 

0093 5f pop di 

0094 8b e5 mov sp, bp 

0096 5d pop bp 

0097 c3 ret 


No disassembly errors 


Segment: '_DATA' WORD 00000031 bytes 


0000 48 65 éc 6c 6f 20 43 68 L6 - Hello Ch 
0008 75 63 6b 21 00 - uck!. 
000d 4a 69 66 66 79 20 43 6f L7 - Jiffy Co 
0015 75 6e 74 20 3d 20 25 64 - unt = % 
001d Oa 00 aoe 

OO1f 4a 69 66 66 79 20 43 6f L8 - Jiffy Co 
0027 75 6e 74 20 3d 20 25 64 - unt = kd 
002f Oa 00 ~ ee 


No disassembly errors 


Finally, the results are predictable. 


Compile PROG1.0OBJ PROGI1.EXE PROGI1.EXE 


Options Size Size Speed 

(none) 620 6353 264 jiffys 
/Oi/Ol/Oa/Gs 564 6241 264 jiffys 
/Oi/Gs 982 6257 253 jiffys 
/Oi 602 6273 253 jiffys 


Now that the stack probes have been added, the program size in- 
creases but the looping execution time remains the same. Figure 1-6 
presents the disassembly to PROG1.OBJ where only the /Oi, intrinsic opti- 
mization, has been invoked. 

Comparing the various disassembled listings will provide important 
background for understanding the impact of using the inline assembler 
for more fully controlled program optimization. 


The inline assembler 


I really enjoy using Microsoft C 6.0’s new inline assembler. It permits me 
to enjoy the productivity of C while allowing me the fun of twiddling bits in 
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1-6 The disassembled listing to PROG1.OBJ using just the /Oi switch. 


Module: progi.c 
Group: 'DGROUP' CONST, BSS, DATA 


Segment: '_TEXT' WORD 0000009c bytes 


0000 55 _main push bp 

0001 8b ec mov bp, sp 

0003 b8 60 00 mov ax ,0060H 

0006 e8 00 00 call __aNchkstk 

0009 57 push di 

000a 56 push si 

000b 8d 7e al lea di ,-60H [bp] 

000e be 00 00 mov si,offset L6 

0011 8c d0 mov ax,Ss 

0013 8e c0 mov es , ax 

0015 b9 06 00 mov cx, 0006H 

0018 f3 a5 repe movsw 

OOia e8& 00 00 call _initialize_timer 
001d e8 00 00 call _stop_timer 

0020 e8 00 00 call _reset_timer 
0023 e8 00 00 call _get_jiffy 

0026 50 push ax | 

0027 b8 Od 00 mov ax,offset L7 
002a 50 push ax 

002b e8 00 00 call _printf 

002e 83 c4 04 add sp,0004H 

0031 e8 00 00 call _start_timer 
0034 c7 46 ae 00 00 mov word ptr -52H[bp] ,OQO000H 
0039 eb 38 jmp L4 

003b 90 nop 

003c ff 46 ac L1 inc word ptr -54H[bp] 
O03f 81 7e ac c8 00 L2 cmp word ptr -54H[bp] ,00c8H 
0044 7d 2a jge L3 

0046 2b c0 sub ax, ax 

0048 b9 50 00 mov cx,0050H 

004b 8d 7e b0 lea di, -50H [bp] 

004e 16 push ss 

004F 07 pop es 

0050 f3 aa repe stosb 

0052 8d 7e al lea di, ~-60H [bp] 

0055 8d 76 b0 lea si,-50H [bp] 

0058 b9 ff ff mov cx, Of ff fH 

005b 33 c0 xor ax , ax 

005d f2 ae repne scasb 

OOSf f7 di not cx 

0061 2b f9 sub di,cx 

0063 87 fe xchg di,si 

0065 di e9 shr cx, 1 

0067 f3 a5 repe mOVSW 

0069 13 c9 adc CX, CX 

006b f3 a4 repe movsb 

006d eb cd jmp L1 

006f 90 nop 

0070 ff 46 ae L3 inc word ptr -52H[bp] 
0073 81 7e ae dO 07 L4 cmp word ptr -52H[bp] ,O7dOH 
0078 7d 08 jge L5 

007a c7 46 ac 00 00 mov word ptr -54H[bp] ,OO00H 
007f eb be jmo L2 

0081 90 nop 
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1-6 Continued. 


0082 e8 00 00 L5 call _stop_timer 
0085 e8 00 00 call _get_jiffy 
0088 50 push ax 

0089 b8 if 00 mov ax,offset L8& 
008 50 push ax 

008d e8 00 00 : call _printf 

0090 83 c4 04 add sp,0004H 
0093 e& 00 00 call _remove_timer 
0096 5e pop si 

0097 5f pop di 

0098 8b e5 mov sp, bp 

009a 5d pop 

009b c3 ret 


No disassembly errors 


Segment: ' DATA' WORD 00000031 bytes 


0000 48 65 6c 6c 6f 20 43 68 L6 - Hello Ch 
0008 75 63 6b 21 00 - uck!. 
000d 4a 69 66 66 79 20 43 6f L7 - Jiffy Co 
0015 75 6e 74 20 3d 20 25 64 - unt = xd 
001d Oa 00 = es 

OO1f 4a 69 66 66 79 20 43 6f L8& - Jiffy Co 
0027 75 6e 74 20 3d 20 25 64 - unt = % 
002f Oa 00 oie 


No disassembly errors 


assembly to my heart’s content. The inline assembler gives you total con- 
trol over your final executable’s code. When you use the inline assembler, 
what you code is what you get. Period. 

The inline assembler is invoked using the new _asm keyword. Once 
you're invoked the inline assembler, C-declared variables are visible to the 
registers. Let’s see how easy it is to invoke the inline assembler. 


fin C 
int gtKey( ) 
int key; 
// invoke inline assembler 
_asm 
{ 
xor AX,AX  ;_ get scan and char function 
int 16h ; via the BIOS 
mov key,AX ; AX value to C variable 
} 
// back to C 
return key; 
} 
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There is another way to invoke the inline assembler but I find it so 
kludgey I won’t even mention it here. Because this chapter’s theme is opti- 
mization I'll slowly optimize PROG1.C using the inline assembler. There 
are other reasons for using the inline assembler, but those will be dis- 
cussed in chapter 3. 

PROG2.C, shown in FIG. 1-7, invokes the inline assembler to replace 
function memset(...) and function strcpy(...). In essence, the code really re- 
places the /Oi intrinsic function optimization. 


1-7 The source code listing to PROG2.C. 


VIVITTTTTTTLTLTDTIT TTT TTT ITT TTT 
// 
// PROG2.C 


Sf 
// Tests the inline assembly routines 


// 
SULLATTLTLATLVTLD TTT LATTA AT 
// include files here 

#include <stdio.h> 

#include <string.h> 

#include <tproto.h> 

// declare function prototypes 
void main(void); 

extern initialize _timer(); 
extern remove_timer(); 

int get_jiffy(void); 

int get_jiffmin(void); 


int get_jiffhour(void); 
unsigned long get_ljiffy(void); 


void 

main() 

int level, level2; 

char dest [80]; 

char srce[12] = "Hello Chuck!"; 
// initialize the timer 
initialize_timer(); 

// stop the timer 
stop_timer(); 

// reset the timer to 0 
reset_timer(); 


// print initial timer values 
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1-7 Continued. 
printf("Jiffy Count = 4d\n",get_jiffy()); 


// start the timer 
start_timer(); 
// perform test loop 


for(leveli=0; level1<2000; level1++) 
{ 


for(level2=0; level2<200; level2++) 
{ 


// memset (dest,0,80); 
// set 80 bytes of memory to 0 


_asm 
{ 
mov DI,offset dest 
mov cx, 80 
xor AL, AL 
rep stosb 
} 


// strepy(dest,srce); 
// copy 12 bytes from srce to dest 


_asm 

{ 
mov DI,offset dest 
mov SI,offset srce 
mov CX, 12 
rep movsb 

} 

) 


// stop the jiffy timer 

stop_timer(); 

// print the timer results in jiffys 
printf("Jiffy Count = 4d\n",get_jiffy()); 
// restore the original int 1C vector 
remove_timer(); 


} 
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The results of using the inline assembler are very encouraging. Let’s 
have a look: 


Compile PROG1.0BJ PROGI1.EXE PROGI1.EXE 


Options Size Size Speed 

(none) 620 6353 264 jiffys 
/Oi/Ol/Oa/Gs 564 6241 264 jiffys 
/Oi/Gs 582 6257 253 jiffys 
/Oi 602 6273 253 jiffys 


Compile PROG2.O0OBJ PROG2.EXE PROG2.EXE 
Inline /Oi 584 6257 205 jiffys 


The inline /Oi optimization reduced program execution time from the 
original 264 jiffys by 59 jiffys to 205 jiffys. This savings represents a signif- 
icant increase in speed of about 22 percent. Very promising indeed. 

Figure 1-8 presents the disassembled listing to PROG2.OBJ. Can you 
see where the inline assembler’s magic begins and ends? 


1-8 The disassembled listing to PROG2.OBu. 


Module: prog2.c — 
Group: 'DGROUP' CONST, BSS, DATA 


Segment: ' _TEXT' WORD 0000008a bytes 


0000 55 _main push bp 

0001 8b ec mov bp, sp 

0003 b8 60 00 — mov ax, 0060H 
0006 e8 00 00 call __aNchkstk 
0009 57 push di 

000a 56 push si 

000b 8d 7e al lea di, -60H [bp] 
000e be 00 00 mov si,offset L6 
0011 8c dd mov ax,Ss 

0013 8e c0 mov es , aX 

0015 b9 06 00 mov cx, 0006H 
0018 f3 a5 repe movsw 

001a e8 00 00 call _initialize_timer 
001d e8 00 00 call _stop_timer 
0020 e8 00 00 call _reset_timer 
0023 e8 00 00 call _get_jiffy 
0026 50 push ax 

0027 b8& Od 00 mov ax,offset L7 
002a 50 push ax 

002b e8 00 00 call _printf 

002e 83 c4 04 add sp,0004H 
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1-8 Continued. 


0031 
0034 
0039 
003b 
003c 
003 f 
0044 
0046 
0049 
004c 
004e 
0050 
0053 
0056 
0059 
005b 
005d 
005e 
0061 
0066 
0068 
006d 
006f 
0070 
0073 
0076 
0077 
007a 
007b 
007e 
0081 
0084 
0085 
0086 
0088 
0089 


e8 00 00 
c7 46 ae 00 00 


eb 
90 
ff 
81 
7d 
bf 
b9 
32 
£3 
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46 
Ze 
18 
bd 
50 
c0 
aa 


ac 
ac 


ff 
00 


ff 
f f 
00 


ae 


ae dO 07 


ac 
00 
00 
00 
00 


04 
00 


c8 00 


00 00 


No disassembly errors 


L1 
L2 


L3 
L4 


L5 


_Start_timer 
word ptr -52H[bp] ,O000H 
L4 


word ptr -54H[bp] 
word ptr -54H[bp] ,00c8H 
L3 } 
di, Of fbOH 
cx,0050H 

al,al 

stosb 

di,OffbOH 
si,Offa0H 

cx, 000cH 

movsb 

L1 


word ptr -52H[bp) 

word ptr -52H[bp] ,07d0H 
L5 

word ptr -54H[bp) , OOOOH 
L2 


_stop_timer 
_get_jiffy 
ax 

ax,offset L8 
ax 

_printf 
sp,0004H 
_remove_timer 


“aan wreraewewenwaoewaenwnnwnenwaceewewewreanwraonnewernwaeanntneewewrewnerwzreanwneweeewewzenreewaewe ee ewwewe wo 


segment: ' DATA’ WORD 
48 65 6c 6c 6f 
63 6b 21 00 
69 66 66 79 20 43 6f L7 
6e 74 20 3d 20 25 64 


0000 
0008 
000d 
0015 
001d 
001f 
0027 
002f 


5 
4a 
5 
0a 
4a 
5 
0a 


00 


69 66 66 79 
6e 74 20 3d 20 25 64 


00 


No disassembly errors 


00000031 bytes 
20 43 68 L6 


20 43 6f L8& 


Hello Ch 
uck!. 

Jiffy Co 
unt = Xd 


Jiffy Co 
unt = %d 
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You're not done here, however. PROG3.C, shown in FIG. 1-9, takes the 
inline assembler one step further and tries to optimize the looping. The 
results are still better. Have a look. 


Compile PROG1.OBJ PROGI.EXE PROGI1.EXE 


Options Size Size Speed 

(none) 620 6353 264 jiffys 
/Oi/Ol/Oa/Gs 564 6241 264 jiffys 
/Oi/Gs 582 6257 253 jiffys 
/Oi 602 6273 253 jiffys 


Compile PROG2.0BJ PROG2.EXE PROG2.EXE 
Inline /Oi 084 6257 205 jiffys 


Compile PROG3.OBJ PROGS3S.EXE PROG3.EXE 
Inline /Oi/Ol 560 6225 200 jiffys 


So we shaved off another five jiffys from the program’s execution time. 
This represents about a 24 percent increase in program execution speed. 
Not bad at all. 


1-9 The source code listing to PROGS.C. 


SILTTTLLTTTTLTT LTT TAT TTT TTT 


// 

// PROG3.C 

If 

// Tests more inline assembly routines 


VILILTTTTTTLLL TTT ATTA AAA 
// include files here 


#include <stdio.h> 
#include <string.h> 
#include <tproto.h> 


// declare function prototypes 


void main(void); 

extern initialize timer(); 
extern remove_timer(); 

int get_jiffy(void); 

int get_jiffmin(void); 

int get_jiffhour(void); 
unsigned long get_ljiffy(void); 
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1-9 Continued. 

void 

main() 

{ 

int level, level2; 

char dest [80]; 

char srce[i2] = "Hello Chuck!": 
// initialize the timer 
initialize timer(); 

// stop the timer 
stop_timer(); 

// reset the timer to 0 
reset_timer(); 


// print initial timer values 


printf("Jiffy Count = %d\n",get_jiffy()); 


// start the timer 
start_timer(); 
// perform test loop 


_asm 
{ 


: for(level1=0; level1<2000; level1++) 


mov CX,2000 ; set counter to 2000 
outer_loop: 


push CX ; save outer counter 
; for(level2=0; level2<200; level2++) 


mov Cx,200 >; set counter to 200 
Inner_loop: 
push CX ; save counter 


: memset(dest,0,80); // set memory 


mov DI,offset dest 
mov cx, 80 
xor AL, AL 
rep stosb 


; strcepy(dest,srce); // copy string 


mov DI,offset dest 


mov SI,offset srce 
mov CX, 12 
rep movsb 
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1-9 Continued. 


: inner loop 


pop CX s restore inner counter 
loop inner_loop 
pop CX ; restore outer counter 


loop outer_loop 


// stop the jiffy timer 

stop_timer(); 

// print the timer results in jiffys 
printf("Jiffy Count = %d\n",get_jiffy()); 
// restore the original int 1C vector 
remove_timer(); 


} 


It’s time to explore the object disassembly listing to PROG3.OBU, 
shown in FIG. 1-10. Can you see how the different optimization techniques 
alter the disassembled listing? | 

We're done with the inline assembler here, but it’s not time to stop 
looking at optimization strategies and tools. It’s time to explore the impact 
of passing parameters on the registers. 


1-10 The disassembled listing to PROGS3.OBu. 


Module: prog3.c 
Group: 'DGROUP' CONST, BSS, DATA 


Segment: ' TEXT' WORD 00000072 bytes 


0000 55 _main push bp 

0001 8b ec mov bp, sp 

0003 b8 60 00 mov ax , 0060H 
0006 e8 00 00 call __aNchkstk 
0009 57 push di 

000a 56 push si 

000b 8d 7e al lea di, -60H [bp] 
000e be 00 00 mov si,offset L3 
0011 8c d0 mov ax,Ss 

0013 8e c0 mov es , ax 

0015 b9 06 00 mov cx, 0006H 
0018 f3 a5 repe movsw 

OOia e8 00 00 call _initialize_timer 
001d e8 00 00 call _stop_timer 
0020 e8 00 00 call _reset_timer 
0023 e8 00 00 call -_get_jiffy 
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1-10 Continued. 


0026 50 push ax 

0027 b& Od 00 mov ax,offset L4 
002a 50 push ax 

002b e8 00 00 call _printf 

002e 83 c4 04 add sp,0004H 
0031 e8 00 00 call _Start_timer 
0034 b9 dO 07 mov cx ,07d0H 
0037 51 L1 push CX 

0038 b9 c8 00 Mov cx,00c8H 
003b 51 L2 push cx 

003c bf bd ff mov di,Offb0H 
003f b9 50 00 mov cx, 0050H 
0042 32 c0 xor al,al 

0044 f3 aa repe stosb 

0046 bf bo ff mov di, Of fbOH 
0049 be al ff mov si,Offa0H 
004c b9 Oc 00 mov cx, 000cH 
O04f f3 a4 repe movsb 

0051 59 pop cx 

0052 e2 e7 loop L2 

0054 59 pop cx 

0055 e2 el loop L1 

0057 e8 00 00 call _stop_timer 
005a e8 00 00 call _get_jiffy 
005d 50 push ax 

005e b8 1f 00 mov ax offset L5 
0061 50 push ax 

0062 e8 00 00 call _printf 

0065 83 c4 04 add sp, 0004H 
0068 e8 00 00 call _remove_timer 
006b 5e pop - si 

006c 5f pop di 

006d 8b e5 mov sp, bp 

O06f 5d pop bp 

0070 c3 ret 

0071 90 nop 


No disassembly errors 


Segment: ' DATA’ WORD 00000031 bytes 


0000 48 65 6c 6c 6f 20 43 68 L3 - Hello Ch 
0008 75 63 6b 21 00 - uck!. 
000d 4a 69 66 66 79 20 43 6f L4 - Jiffy Co 
0015 75 6e 74 20 3d 20 25 64 - unt = &d 
001d Oa 00 = le 

OO1f 4a 69 66 66 79 20 43 6f L5 - Jiffy Co 
0027 75 6e 74 20 3d 20 25 64 - unt = &d 


002f Oa 00 ee 


No disassembly errors 
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The /Gr (_fastcall) parameter-passing convention 


It is common knowledge that you can increase the speed of program exe- 
cution by passing parameters to functions in registers as opposed to pass- 
ing parameters on the stack. Even with that knowledge, many C compiler 
manufacturers have chosen to pass parameters on the stack. I suspect the 
reason is that because Microsoft C previously had a lion’s share of the C 
compiler market any new compiler wishing to break into the market 
would have to claim Microsoft compatibility. 

After all, say you were a Microsoft programmer and had 200 assembly- 
generated functions in your specialized library. Would you want to rewrite 
those 200 assembly bindings with a new parameter-passing scheme so 
they would work with another compiler? I think not. 

Recently though, a Canadian compiler maker named Watcom, intro- 
duced a compiler that permits programmers to either declare functions as 
Microsoft-compatible (pass parameters on the stack) or use a highly idio- 
syncratic but delightfully effective pass-parameters-in-registers method. 
In fact, Watcom went so far as to create pragmas that permit C program- 
mers to place function parameters in specified registers! The Watcom 
compiler allows for tremendous optimizations. And if Watcom C were the 
only compiler you were planning to ever use you could optimize to the 


maximum. 
Microsoft C 6.0’s register calling is a competent answer to Watcom’s 


scheme to pass parameters in the registers. In Microsoft C 6.0 you tell the 
compiler how a function’s parameters will be passed by using either the 
_cdecl or _fastcall keywords. Simple as that. 

For example, let’s say you have a function that moves the cursor and 
you name that function mvCur(...). This function mvCur(...) receives two 
parameters. The first is a 16-bit value that denotes the row position of the 
cursor and the second parameter is a 16-bit value that denotes the column 
position of the cursor. 

If you code function mvCur(...) so it will get parameters via the registers 
then you can inform the compiler of your decision by using the following 
prototype of function mvCur(...): 


void _fastcall mVCur(int,int); 


At compile time every call to function mvCur(...) will now stuff the row and 
column parameters in registers. 

Whereas, if you wish to code function mvCur(...) so it receives parame- 
ters on the stack then you prototype function mvCur(...) like this: 


void _cdecl mvCur(int, int); 


So if passing paramaters in registers is superior to passing parameters 
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on the stack then why not declare all functions as _fastcall? There are rea- 
sons. 


1. Microsoft’s _fastcall convention is idiosyncratic. If you wish to use 
an assembly binding with another compiler you must rewrite your 
assembly code. No fun. 

2. Microsoft’s own MASM 5.1 does not have any directives that sup- 
port _fastcall. They have elegant directives that support —_cdecl. 


For my own coding needs I decided to adopt the following plan con- 
cerning when to use _fastcall and _cdecl. 


1. All C-generated functions are prototyped using _fastcall. 
2. All assembly-generated functions are prototyped using _cdecl. 


You also can invoke _fastcall for an entire source file by using the /Gr 
switch in the compile and link command line. You can invoke _cdecl for an 
entire source file by using the /Gd switch in the compile and link command 
line. 

PROG4.C, shown in FIG. 1-11, isa simple program that writes a rectan- 
gle of letters to the screen. Note that the BIOS calls were coded using the 
union REGS and int86(...) approach. 


1-11. The source code listing to PROG4.C. 


UU 
// 


// PROG4.C 

// 

// Stage 1 optimization program 

If 
OULU 


// include files 


#include <stdio.h> 
#include <dos.h> 


// _cdecl function prototypes ensures 
// standard Microsoft parameter passing 
// and pre_underscore function naming 


void _cdecl initialize_timer(); 
void _cdecl remove_timer(); 
void _cdecl reset_timer(); 

void _cdecl start_timer(); 

void _cdecl stop_timer(); 

int _cdecl get_jiffy(void); 


// functions declared without _cdecl 


// permit you to use _fastcall (/Gr) 
// parameter passing 
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1-11 Continued. 


void main(void); 

int gtKey(void); 
void scernClr(void); 
void mvCur(int, int); 


// data 


char xdat [80] = { 
SE a ee 
Para cee Care ae ae Gee Cel Cen oe x, 
LP Uae Gara) Gla, Gum xX! XxX". ae XE IK. 2 ae 
> Gia Cae Cee Cues re ey GD ae Gee cae 
» COPS Ce (ree Gene Cee, Geree Gere (ee, Ge) Ce 
Lae, Lerey Gare. Garay Gora Gamma Game Gm, Core D. Com 
oP Saas Grae Gree, a Gee Gare me Cae Clem Ge 
Oe xX KEK 0 ); 


char odat [80] = { 
‘Ot. tO, © La ‘O' ; a 9 'O%; 19! ; 19! Pad Oh : i9! ; 
‘ON, 'O', 1O*. ‘Or, 10”, Ot, Of", 19! 3° O! ; 19! 
a ¢ Le ‘Ot, Of, ‘Or, '9! ; '9! : 19! ; 19! 7 FO ; ‘9? , 
‘Ot. "0", Ot. 19! : 19! - 19! P ‘Of; to! ZO! IO! ; 
‘OF. ‘Of ‘O' 19! ; ‘Ol; ‘Ot; 10! \ 10! : to! : 19! ; 
Of. 'Ot. ‘Or. 10! : tO ha 10! : 19! . 19! Pag 8 : 'Q! ; 
‘O', toe. ‘Or. ‘Q', ‘O°, 'O! ; Of 'O','O! ri 19! 
1O*. 40%, ‘Or, 10", 10", 'O', ‘Of, Of .'0'0 >; 


// program begins here 

void 

main¢) 

{ 

int count,ctr; 

// initialize the jiffy timer 
initialize timer(); 

// stop and reset the the jiffy timer 


reset_timer(); 
stop_timer(); 


// print message 


printf("Screen test program\nPress any key to continue"); 


// wait for key press 
gtKey(); 


// clear the screen 


sernclr(); 
// start the timer 
start_timer(); 


The /Gr (_fastcall) parameter-passing convention 


31 


1-11 Continued. 
// print 20 rows of Xs to the screen 


for(count=0; count<22; count++) 
a eucemaL Gy: 
puts(xdat); 
> 
// print 20 rows of Os to the screen 
for(count=0; count<22; count++) 
a eieccounes0is 
puts(odat); 
} 
// stop the timer 
stop_timer(); 
// adjust the cursor 
mvCur (23,0); 
// print the jiffy count for screen write 
printf("Jiffy Count = %d\n",get_jiffy()); 
// remove the timer 
remove_timer(); 
// print message 
printf("Press any key to continue"); 
// wait for key press | 
gtKey(); 
// clear the screen and return to DOS 
sernClr(); 
} 
ULL 
y gtKey 
// 
// Uses the BIOS to stop program execution 


// and waits for a key press to continue 
Ii 


// 
// Calling Registers: 
// AH =0 


// Return Registers: 
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1-11. Continued. 


// AW = Key Scan Code 
// AL = Key Character code 


// 
SULTTLTTTLATLLT ALTA AAT 


int 
gtKey() 
{ 


union REGS ir,or; 
int ret_val; 


// BIOS int 16h function 0 
ir.h.ah = 0; 

// invoke interrupt 0x16 
int86(0x16,&ir,&or); 
ret_val = (char)or.h.ah; 


return((ret_val<<8)lor.h.al); 
} 


SIVTTSSITTTLLT LTT ATT TTA TTT 
// 


// sernelr 


// 
// Clears the screen via the BIOS 


// 
// Calling Registers: 


// AH = 6 
// AU=0 
// BH=? 
// CH=0 
// CL=0 
// DH = 24 
// DL = 79 


// Return Registers: 
// (nothing) 


// 
VITITTTLITTLTTT LTT TTT TTT TT 


void 
scrnCtr() 


union REGS ir,or; 

// Scroll window up function 

ir.h.ah = 6; 

// Clear window area 

ir.h.al = 0; 

// normal attribute for blanked area 


ir.h.bh = 7; 
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1-11 Continued. 


// upper left window row and column set to 0 
// lower right window row and column set to 24,79 


ir.h.ch = 0; 
ir.h.cl = 0; 
ir.h.dh = 24; 
ir.h.dl = 79; 


// invoke int 0x10 
1nt86(0x10,&ir,&or); 
// move the cursor to row 0 colum 0 


mvCur(0,0); 
} 


SULLLLLLLTTTLLT TTT ATT 
// 


// mvCur 

// 

// Move the cursor to a specified row 
// and column location 


// 

// Calling Registers: 
// AH = 

// BH=0 

// DH = row value 

// DL = column value 


MTT TT TT 
void 

mvCur(int row,int col) 

ice REGS ir,or; 

// move cursor function 

ir.h.ah = 2; 

// set to move cursor on page 0 

ir.h.bh = 0; 


// set to row and colum 


ir.h.dh = (char)row; 
= (char)col; 


// invoke BIOS interrupt 0x10 to move cursor 
int86(0x10,&ir,&or); 
} 
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First let’s compile and link PROG4.C using the on-the-stack parame- 
ter-passing scheme. At the command line, type: 


cl prog4.c timer.obj 


and press Enter. The base line results are predictable. 


Compile 
Options Size 
(/Gd default) 1136 


PROG4.OBJ PROG4.EXE PROG4.EXE 
Size 


7209 


Speed 
28 jiffys 


Figure 1-12 presents the disassembled listing of PROG4.OBuU. 

Now, let’s recompile PROG4.C using the /Gr (_fastcall) switch. When 
you use the /Gr command line switch you do not really need to use stack 
probes. You can almost always use the /Gs switch in combination with the 
/Gr switch. Remember that any function prototype declaring a function 
_cdecl will override the command line /Gr switch. At the command line, 


type: 


cl /Gr /Gs prog4.c timer.ob} 


and press Enter. 


1-12 The disassembled listing to PROG4.OBu. 


Module: prog4.c 


Group: ‘DGROUP' CONST, BSS, DATA 


Segment: '_TEXT' WORD 00000142 bytes 


0000 55 

0001 8b ec 
0003 b8 04 00 
0006 e8 00 00 
0009 e8 00 00 
000c e8 00 00 
O0O0f e8 00 00 
0012 b8 00 00 
0015 50 

0016 e&8 00 00 
0019 83 c4 02 
00ic e8 00 00 
001f e8 00 00 
0022 e8 00 00 
0025 c/ 46 fc 00 00 
002a 2b c0 
002c 50 

002d ff 76 fc 
0030 e8 00 00 
0033 83 c4& 04 
0036 b8 5a 00 
0039 50 

003a e8 00 00 
003d 83 c4 02 
0040 ff 46 fc 
0043 83 7e fc 16 


_main 


L1 


bp 

bp, sp 

ax ,0004H 
__aNchkstk 
_initialize_timer 
_reset_timer 
_Stop_timer 
ax,offset L3 

ax 

_printf 

sp,0002H 

_gtkey 

_sernclr 
_Start_timer 

word ptr -4H[bp] ,Q000H 
ax, ax 


ax,offset _xdat 

ax 

_puts 

sp,0002H 

word ptr -4H[bp] 

word ptr -4H[bp] ,0016H 
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1-12 


0047 
0049 
004e 
0050 
0051 
0054 
0057 
005a 
005d 
005e 
0061 
0064 
0067 
006b 
006d 
0070 
0072 
0073 
0076 
0077 
007a 
007d 
0080 
0081 
0084 
0085 
0088 
008b 
008e 
0091 
0092 
0095 
0098 
009b 
009e 
00a0 
00a1 
00a2 
00a3 
00a5 
00a8 
00ab 
00af 
00b2 
00b3 
00b6 
00b7 
0O0ba 
00bb 
00be 
00c1 
00c2 
00c5 
00c7 
00ca 
00cc 
00ce 
00cf 
00d0 
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Continued. 


7c 
c7 
2b 
50 
ff 
e8 
83 
b8 
50 
e8 
83 
ff 
83 
Tc 
e8 
2b 
50 
b8 
50 
e8 
83 
e8 


e1 
46 
c0 


76 
00 
c4 
aa 


00 
c4 
46 
Ze 
e( 
00 
c0 


fe 00 00 


fc 
00 
04 
00 


00 
02 
fc 
fc 


00 


L2 


_gtkey 


_sernClr 
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L1 

word ptr -4H[bp] ,OO00H 
ax, ax 

ax 

-4H [bp] 

_mvCur 

sp,0004H 
ax,offset _odat 
ax 

_puts 

sp,0002H 

word ptr -4H [bp] 
word ptr -4H[bp] ,0016H 
Le 

_stop_ timer 

ax, ax 

ax 

ax ,0017H 

ax 

_mvCur 

sp,0004H 
_get_jiffy 

ax 

ax, offset L4 

ax 

_printf 

sp, 0004H 
_remove_timer 
ax,offset L5 

ax 

_printf 
sp,0002H 
_gtKey 
_sernclr 

sp, bp 

bp 


bp 

bp, sp 

ax, 001eH 
__aNchkstk 
byte ptr -ibH[bp] ,OOH 
ax, ~OeH [bp] 
ax 
cx, - 1cH [bp] 
cx 

cx ,0016H 
cx 

_int86 

al, -OdH [bp] 


- eH [bp] , ax 
CX, ax 
al, -OeH [bp] 
ah,cl 


sp, bp 
bp 


bp 


1-12 
00d1 
00d3 
00d6 
00d9 
00dd 
00e1 
00e5 
00e7 
00ea 
00ed 
oof 1 
00f5 
00f8 
00f9 
00fc 
00fd 
0100 
0101 
0104 
0107 
0109 
010a 
010b 
010e 
0110 
0111 
0112 
0113 
0115 
0118 
011b 
O11f 
0123 
0126 
0129 
012c 
012f 
0132 
0133 
0136 
0137 
013a 
013b 
013e 
0140 
0141 


Segment: ' DATA' WORD 000000fa bytes 


0000 
0008 
0010 
0018 
0020 
0028 
002e 


Continued. 


8b ec 

b8 1c 00 

e8 00 00 

c6 46 e5 06 
c6 46 e4 00 
c6 46 e7 07 
2a c0 

88 46 e9 

88 46 e8 

c6 46 eb 18 
c6 46 ea 4f 
8d 46 f2 


e8 00 00 
83 c4 06 


55 _mvCur 


c6 46 e5 02 
c6 46 e7 00 


53 63 72 65 65 6e 20 74 L3 
65 73 74 20 70 72 &f 67 

72 61 6d Oa 50 72 65 73 

73 20 61 6e 79 20 6b 65 

79 20 74 6f 20 63 6f be 

74 69 6e 75 65 00 

4a 69 66 66 79 20 43 6f L4 
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bp, sp 
ax, 001cH 
__aNchkstk 


byte ptr -1bH{bp] ,06H 
byte ptr -1cH[bp] ,00H 
byte ptr -19H[bp] ,07H 


al,al 
-17H [bp] , al 
- 18H [bp] , al 


byte ptr -15H{bp] , 18H 
byte ptr -16H[bp] ,4fH 


ax, ~OeH [bp] 
ax 
ax, - 1cH [bp] 


ax 
ax,0010H 
ax 
_int86 
sp, 0006H 
ax , aX 

ax 

ax 
_mvCur 


sp, bp 
bp 


bp 

bp, sp 

ax ,001cH 
aNchkstk 


byte ptr -1bH{bp] ,02H 
byte ptr -19H{[bp] ,OOH 


al ,+4H [bp] 
- 15H [bp] , al 
al, +6H [bp] 
- 16H [bp] , al 
ax, ~OeH [bp] 
ax 

ax, -1cH [bp] 
ax 
ax ,0010H 


Screen t 
est prog 
ram.Pres 
s any ke 
y to con 
tinue. 

Jiffy Co 
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1-12 Continued. 


0036 75 6e 74 20 3d 20 25 64 - unt = Xd 

003e Oa 00 m ide 

0040 50 72 65 73 73 20 61 6e L5 - Press an 

0048 79 20 6b 65 79 20 74 6f - y key to 

0050 20 63 6f be 74 69 6e 75 - continu 

0058 65 00 - e@. 

005a 58 58 58 58 58 58 58 58 _xdat - XXXXXXXX 
--- Above line repeats 8 times --- 

00a2 58 58 58 58 58 58 58 00 - XXXXXXX. 

OOaa 4f 4f 4f 4f 4f 4f 4f 4f odat - 90000000 
--- Above line repeats 8 times --- 

OOf2 4f 4f 4f 4f 4f 4f 4f 00 - 0000000. 


No disassembly errors 


Before discussing the results let’s have a look at the disassembly of 
PROG4.OBJ using the /Gr switch. Figure 1-13 presents the disassembled 
listing to PROG4.OBu. The results are interesting, but not mind boggling. 


Compile PROG4.OBJ PROG4.EXE PROG4.EXE 


Options Size Size Speed 
(/Gd default) 1136 7209 28 jiffys 
Gr /Gs 1080 7177 28 jiffys 


If passing parameters in registers is faster than passing parameters on 
the stack then why do the programs’ speed remain identical? The answer 
is that function printf...) writes to the screen in a painfully slow fashion. 
We'll do something about function printf(...) later in this chapter. 

Explore the listings presented in FIGS. 1-12 and 1-13 and note the 
names of functions mvCur(...), gtKey(...), and scrnClr(...). They are different in 
the two listings. 

Functions that are declared using the _cdecl keyword are named with 
the standard pre-underscore. Functions declared using the _fastcall key- 
word are named using the pre-at symbol. For example: 


Function -—_cdecl _fastcall 
Prototype Name Name 
mvCur(...) _mvCur @mvCur 
gtKey(...) _gtKey @gtKey 
scrnClr(...) _—scernClr . @scernClr 
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1-13 The disassembled listing to PROG4.OBu using the /Gr switch. 


Module: prog4.c 
Group: 'DGROUP' CONST, BSS, DATA 


Segment: ' _TEXT' WORD 00000126 bytes 


0000 55 _main push bp 

0001 8b ec mov bp, sp 

0003 83 ec 04 sub sp, 0004H 

0006 e8 00 00 call _initialize_timer 
0009 e8 00 00 call _reset_timer 
000c e8 00 00 call _stop_timer 
OO0Of b8 00 00 mov ax,offset L3 
0012 50 push ax 

0013 e8 00 00 call _printf 

0016 83 c4 02 add sp, 0002H 

0019 e8 00 00 call agtKey 

001ic e8 00 00 call ascrnclr 

001f e8 00 00 call _Start_timer 
0022 c7 46 fc 00 00 mov word ptr -4H[bp] ,OO00H 
0027 8b 46 fc L1 mov ax, -4H [bp] 

002a 2b d2 sub dx , dx 

002c e8 00 00 call amvCur 

002f b8 5a 00 mov ax,offset _xdat 
0032 50 push ax 

0033 e8 00 00 call _puts 

0036 83 c4 02 add sp,0002H 

0039 ff 46 fc inc word ptr -4H[bp] 
003c 83 7e fc 16 cmp word ptr -4H[bp] ,0016H 
0040 7c e5 jl L1 

0042 c7 46 fc 00 00 mov word ptr -4H[bp) ,O000H 
0047 8b 46 fc L2 mov ax, -4H [bp] 

004a 2b d2 sub dx , dx 

004c e8 00 00 call amvCur 

004f b8 aa 00 mov ax,offset _odat 
0052 50 push ax 

0053 e8 00 00 call _puts 

0056 83 c4 02 add sp,0002H 

0059 ff 46 fc inc word ptr -4H[bp] 
005c 83 7e fc 16 cmp word ptr -4H[bp] ,0016H 
0060 7c e5 jl L2 

0062 e8 00 00 call _stop_timer 

0065 b8 17 00 mov ax,0017H 

0068 99 cwd 

0069 e8 00 00 call amvCur 

006c e8 00 00 call _get_jiffy 

006f 50 push ax 

0070 b8& 2e 00 mov ax, offset L4 
0073 50 push ax 

0074 e8 00 00 call _printf 

0077 83 c4 04 add sp,0004H 

007a e8 00 00 call _remove_timer 
007d b8& 40 00 mov ax,offset L5 
0080 50 push ax 

0081 e8 00 00 call _printf 

0084 83 c4 02 add sp,0002H 

0087 e8 00 00 call agtKey 

008a e8 00 00 call ascrnclr 

008d 8b e5 mov sp, bp 

O08f 5d pop bp 
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0090 
0091 
0092 
0093 
0095 
0098 
009c 
009f 
00a0 
00a3 
00a4 
00a7 
00a8 
00ab 
00ae 
00af 
00b2 
00b4 
00b7 
00b9 
00bb 
00bc 
00bd 
00be 
00bf 
00c1 
00c4 
00c8 
00cc 
00d0 
00d2 
00d5 
00d8 
00dc 
00e0 
00e3 
00e4 
00e7 
00e8 
00eb 
00ec 
00ef 
00f2 
0Of4 
0of5 
00f8 
00fa 
00fb 
00fc 
00fd 
OOf f 
0102 
0103 
0104 
0108 
010c 
010f 
0112 
0115 
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Continued. 


c3 
90 
55 
8b ec 
83 ec 


00 
06 


00 


02 
00 


agtKey 


ascrnclr 


amvCur 
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bp 

bp, sp 

sp, 001eH 

byte ptr -1bH[bp] ,00H 
ax, ~OeH [bp] 

ax 

cx, - 1cH [bp] 


CX 
cx,0016H 
cx 

_int86 

al, -OdH [bp] 


- 1eH [bp] , ax 
CX, ax 
al, -OeH [bp] 
ah,cl 


sp, bp 
bp 


bp 

bp, sp 

sp, 001cH 

byte ptr -1bH[bp] ,06H 
byte ptr -1cHI[bp] ,OOH 
byte ptr -19H[bp] ,07H 
al,al 

-17H [bp] , al 

- 18H [bp] , al 

byte ptr -15H[bp] , 18H 
byte ptr -16H[bp] ,4fH 
ax, -OeH [bp] 

ax 

ax, - 1cH [bp] 

ax 

ax ,0010H 

ax 

_int86 

sp, 0006H 

ax, ax 


amvCur 
sp, bp 
bp 


bp 

bp, Sp 

sp,001cH 

dx 

ax 

byte ptr -1bH[bp] ,02H 
byte ptr -19H[bp] , 00H 
- 15H [bp] , al 

- 16H [bp] , dl 

ax, ~OeH [bp] 

ax 


1-13 
0116 
0119 50 
O1la 
011d 50 
O11e 
0121 
0123 
0124 c3 
0125 90 
No disassembly errors 


Continued. 


ax, - 1cH [bp] 


ax 
ax,0010H 
ax 


_int& 


sp, bp 
bp 


Segment: ' DATA' WORD 
0000 53 63 72 65 65 
0008 65 73 74 20 70 
0010 72 61 6d 0a 50 
0018 73 20 61 6e 79 
0020 79 20 74 6f 20 
0028 74 69 6e 75 65 
002e 4a 69 66 66 79 
0036 75 6e 74 20 3d 
003e Oa 00 
0040 50 72 65 73 73 
0048 79 20 6b 65 79 
0050 20 63 6f 6e 74 
0058 65 00 
005a 58 58 58 58 58 
--- Above line 

58 58 58 58 58 

Gf 4f 4f 4f 4f 
--- Above line 
OOf2 4f 4f 4f 4f 4f 

No disassembly errors 


00a2 
00aa 


000000fa bytes 
6e 20 74 L3 

72 6f 67 

72 65 73 

20 6b 65 

63 6f 6e 

00 

20 43 6f L4 

20 25 64 


20 61 6e L5 
20 74 6f 
69 6e 75 


58 58 58 _xdat 
repeats 8 times --- 
58 58 00 

4f 4f 4f _odat 
repeats 8 times --- 
4f 4f 00 


Screen t 
est prog 
ram.Pres 
s any ke 
y to con 
tinue. 

Jiffy Co 
unt = Xd 


Press an 
y key to 
continu 


e. 
XXXXXXXX 


XXXXXXX. 


PROGS.C, shown in FIG. 1-14, is a rewritten update of PROG4.C where 


functions gtKey(...), mvCur(...), and scrnClr(...) are crafted using the new inline 


assembler. Let’s see how it looks. 


1-14 The source code listing to PROGS.C. 


SITILTTITLTALTD TTT TTT LTT TT 
// 


// PROGS.C 
// 


// Stage 2 optimization program 


// 


// Use inline assembler to replace 


// BIOS calls 


// 
VILTTTLTATLTLT DT TLT LTT TTT 


// include files 


#include <stdio.h> 
#include <dos.h> 
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1-14 Continued. 


// _cdecl function prototypes ensures 
// standard Microsoft parameter passing 
// and pre_underscore function naming 


void cdecl initialize_timer(); 
void _cdecl remove_timer(); 
void _cdecl reset_timer(); 

void _cdecl start_timer(); 

void _cdecl stop _timer(); 

int _cdecl get_jiffy(void); 


// functions declared without _cdecl 
// permit you to use _fastcall (/Gr) 
// parameter passing 


void main(void); 

int gtKey(void); 
void scrnClr(void); 
void mvCur(int, int); 


// data 


char xdat [80] = { 
Be tg KE KEI 
Me ee Xt 
Oe te En A EXE I, 
ty Re ee Ke OO, 
ME Te ee ee OO, 
A I KE EK XS, 
Ke IK, KT ORK TX xX", EXE Xe Xt. 
BT RE 'x' 0 ); 


char odat [80] = {¢ 
10" *O', ‘O'" ‘O',", ‘Of, ‘QO! ‘OF. nO? tof 1OF 
oO", "0", ‘Of, ‘9! F 19! ‘Of. *O? | FOr 19! . ‘o'r, 
"Oh 80? , 10? 2 ae ‘Of. 'O', rot, ‘OF, ‘Q', ‘OX, 
108 40F, ‘9! : 19! ; '9! ; Or. 19! P 19! . 19! ; ‘O°, 
OO! , 'O*., ‘Or. BOM: ‘Or, ‘Or. ‘OF. 19! ; 'O*:; 
‘OF, *O'. ‘O*, ‘Or. ‘Q', ‘OF, a Oh Lot 7M. ‘Ot; 
Oh Ot. O°; by Oa ‘Ot. gO ae i 6 La ‘Of, a 6 he "Of, 
OF tO! , “0" , ‘Of, "0! ‘OF, OF. 20". 'O' 0 a3 


// program begins here 

void 

main() 

{ 

int count,ctr; 

// initialize the jiffy timer 
initialize_timer(); 


// stop and reset the the jiffy timer 


reset_timer(); 
stop_timer(); 


// print message 
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1-14 Continued. 


printf("Screen test program\nPress any key to continue"); 


// wait for key press 
gtKey(); 
// clear the screen 
serncir(); 
// start the timer 
start_timer(); 
// print 20 rows of Xs to the screen 
for(count=0; count<22; count++) 
Saicsneai: 
puts(xdat); 
> 
// print 20 rows of Os to the screen 
for(count=0; count<22; count++) 
= eict Santon: 
puts(odat); 
) 
// stop the timer 
stop_timer(); 
// adjust the cursor 
mvCur (23,0); 
// print the jiffy count for screen write 
printft("Jiffy Count = %d\n",get_jiffy()); 
// remove the timer 
remove_timer(); 
// print message 
printf("Press any key to continue"); 
// wait for key press 
gtKey(); 
// clear the screen and return to DOS 


scrnClr(); 


) 
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1-14 Continued. | 
VILTUTTTTAT ATTA AAA AA AA A TT 
// 


// gtKey 

Sf 

// Uses the BIOS to stop program execution 
// and waits for a key press to continue 
// 


// 
// Calling Registers: 
// AH =0 


// Return Registers: 
// AW = Key Scan Code 
// AL = Key Character code 


// 

VILITTTLLTLTLT ATTA ATT 
int 

gtKey() 

{ 

int r; 


// invoke inline assembler 


_asm 
{ 
mov AH,O ; function 0 
int 16h : invoke int 10h 
mov r,AX  ; prepare return 
> 
return(r); 
> 


VISTLLILTTTTT LTT LTT ATTA ATT 
/ 

// sernclr 

// Clears the screen via the BIOS 


// Calling Registers: 


4 
// bL=79 
// Return Registers: 
// (nothing) 
/ 


/ 

SULIT TTTTTT TTA ATT 
void 

sernc(r() 

{ 

// invoke inline assembler 


_asm 
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1-14 Continued. 


{ 
mov AH,6 ; scroll up function 
mov AL,O ; clear entire window 
mov BH,7 ; use normal attribute 
mov CH,O ; upper left row = 0 
mov CL,O ; upper left col = 0 
mov DH,24 ; lower right row = 24 
mov DL,79 ; upper right col = 0=79 
int 10h  ; invoke interrupt 10h 
mov AH,2 ; move cursor 
mov BH,O ; on page 0 
mov DH,O ; to row 0 
mov DL,O ; colum 0 
int 10h ; via BIOS int 10h 
d 

} 

SILTVTTTTTT TTT TATA A TL 

// 

// mvCur 

// 


// Move the cursor to a specified row 
// and column location 


// 

// Calling Registers: 
// AH=2 

// BH=O0 

// OH = row value 

// OL = colum value 


// 
ULL 


void 

mvCur(int row, int col) 
{ 

char r,c; 


// set 8 bit chars 


r 
c 


(char) row; 
(char)col; 


// invoke inline assembler 


_asm 
{ 
mov AH,2 ; move cursor 
mov BH,O ; on page 0 
mov DH,r ; to row 0 
mov DL,c ; colum 0 
a 


int 10h via BIOS int 10h 
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At the command line, type: 
cl prog5.c timer.obj 


and press Enter. 

Figure 1-15 presents the disassembled listing to PROG5.OBJ. Note 
how the inline assembler alters the listing as compared to the listing pre- 
sented in FIG. 1-12. 


1-15 The disassembled listing to PROGS.OBU. 


Module: prog5.c 
Group: 'DGROUP' CONST, BSS, DATA 


Segment: '_TEXT' WORD 00000106 bytes 


0000 55 _main push bp 

0001 8b ec mov bp, sp 

0003 b8 04 00 mov ax, 0004H 

0006 e8 00 00 call __aNchkstk 

0009 e8 00 00 call _initialize_timer 
000c e8 00 00 call _reset_timer 

OOOf e8 00 00 call _stop_timer 

0012 b8 00 00 mov ax,offset L3 

0015 50 push ax 

0016 e8 00 00 call _printf 

0019 83 c4 02 add sp,0002H 

001c e8 00 00 call _gtKey 

001f e& 00 00 call _sernclr 

0022 e8 00 00 call _start_timer 

0025 c7 46 fc 00 00 mov word ptr -4H[bp] ,0000H 
002a 2b c0 L1 sub ax , ax 

002c 50 push ax 

002d ff 76 fc push -4H [bp] 

0030 e8 00 00 call _mvCur 

0033 83 c4 04 add sp,0004H 

0036 b8 5a 00 mov ax,offset _xdat 
0039 50 push ax 

003a e8 00 00 call _puts 

003d 83 c4 02 add sp,0002H 

0040 ff 46 fc inc word ptr -4H [bp] 
0043 83 7e fc 16 cmp word ptr -4H[bp] ,0016H 
0047 7c el jl L1 

0049 c7 46 fc 00 00 mov word ptr -4H[bp] ,Q000H 
004e 2b c0 L2 sub ax, ax 

0050 50 push ax 

0051 ff 76 fc push -4H [bp] 

0054 e8 00 00 call _mvCur 

0057 83 c4& 04 add sp,0004H 

005a b8 aa 00 mov ax,offset _odat 
005d 50 push ax 

005e e8 00 00 call _puts 

0061 83 c4 02 add sp, 0002H 

0064 ff 46 fc inc word ptr -4H[bp] 
0067 83 7e fc 16 cmp word ptr -4H[bp] ,0016H 
006b 7c et jl L2 

006d e8 00 00 call _stop_timer 

0070 2b c0 sub ax, ax 

0072 50 push ax 
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1-15 Continued. 


0073 
0076 
0077 
007a 
007d 
0080 
0081 

0084 
0085 
0088 
008b 
008e 
0091 

0092 
0095 
0098 
009b 
009e 
00a0 
00a1 

00a2 
00a3 
00a5 
00a8 
00ab 
00ad 
OOaf 
00b2 
00b5 
00b7 
00b8 
00b9 
00ba 
00bb 
00bd 
O0bf 
00c2 
00c4 
00c6 
00c8 
00ca 
00cc 
00ce 
00d0 
00d2 
00d4 
00d6 
00d8 
00da 
00dc 
00de 
0Odf 
00e0 
00e1 

00e3 
00e6 
00e9 
00ec 
00ef 


b8 17 
50 

e8 00 
83 c4 
e8 00 


b8 2e 


00 


00 
04 
00 


00 


00 
04 
00 
00 


00 
02 
00 
00 


00 
00 


fe 
fe 


00 


_gtKey 


_sernClr 


_mvCur 


ax ,0017H 

ax 

_mvCur 

sp, 0004H 
_get_jiffy 
ax 

ax,offset L4 
ax 

_printf 
sp,0004H 
_remove_timer 
ax, offset L5 
ax 

_printf 
sp,0002H 
_gtkey 
_sernClr 
sp,bp 

bp 


bp 

bp, sp 

ax ,0002H 
__aNchkstk 
ah, OOH 

16H 

-2H [bp] , ax 
ax, -2H [bp] 
sp, bp 

bp 


bp 
bp, sp 
ax, aX 
__aNchkstk 
ah , O6H 
al, OOH 
bh, 07H 
ch, 00H 
cl,O0H 
dh , 18H 
dl ,4fH 
10H 
ah, 02H 
bh , OOH 
dh , OOH 
dl, 00H 
10H 


sp, bp 
bp 


bp 

bp, sp 

ax ,0004H 
__aNchkstk 
al ,+4H [bp] 
-2H [bp] ,al 
al ,+6H [bp] 
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1-15 
00f2 
O0f5 
00f7 
00f9 
00fc 
OOf f 
0101 
0103 
0104 
0105 


Continued. 


88 46 fc 
b4 02 

b7 00 

8a 76 fe 
8a 56 fc 
cd 10 

8b e5 

5d 

c3 

90 


No disassembly errors 


-4H [bp] , al 
ah ,02H 

bh , OOH 

dh, -2H [bp] 
dt, -4H [bp] 
10H 

sp, bp 

bp 


Segment: ' DATA' WORD 


0000 
0008 
0010 
0018 
0020 
0028 
002e 
0036 
003e 
0040 
0048 
0050 
0058 
005a 


00a2 
00aa 


00f2 


20 63 6f 6e 74 
65 00 

58 58 58 58 58 
--- Above line 
58 58 58 58 58 
Gf 4f 4f 4f 4f 
--- Above line 
Gf 4f 4f 4f 4f 


No disassembly errors 


000000fa bytes 
6e 20 74 L3 
72 6f 67 


58 58 58 _xdat 
repeats 8 times --- 
58 58 00 

4f 4f 4f _odat 
repeats 8 times --- 
4f 4f 00 


Screen t 
est prog 
ram.Pres 
s any ke 
y to con 
tinue. 

Jiffy Co 
unt = &d 


Press an 
y key to 

continu 
e. 
XXXXXXXX 


XXXXXXX . 
00000000 


The results indicate that the program’s size is shrinking, which is 
good, but program performance indicates an increase in speed of only 3.5 


percent. Don’t lose heart, however, we’ll do better soon. 


PROG4.OBJ PROG4.EXE PROG4.EXE 


Compile 

Options Size Size Speed 
(/Gd default) 1136 7209 28 jiffys 
/Gr /Gs 1080 7177 28 jiffys 


Compile PROG5.OBJ PROGS.EXE PROGS.EXE 
(/Gd default) 1052 7017 27 jiffys 
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Finally, let’s recompile and link PROGS.C using the /Gr switch. At the 
command line, type: 


cl /Gr /Gs prog5.c timer.ob| 


and press Enter. 

Figure 1-16 presents the disassembled listing to PROGS5.OBJ which 
was compiled using the /Gr switch. Compare the listings presented in FIGS. 
1-13 and 1-16. Do they differ? Yes. How? You discover. 


1-16 The disassembled listing to PROGS.OBJ using the /Gr switch. 


Module: prog5.c 
Group: 'DGROUP' CONST, BSS, DATA 


Segment: '_TEXT' WORD 000000e6 bytes 


0000 55 _main push bp 

0001 8b ec mov bp, sp 

0003 83 ec 04 sub sp,0004H 

0006 e8 00 00 call _initialize_timer 
0009 e8 00 00 call _reset_timer 

000c e8 00 00 call _Stop_timer 

OO0O0f b8 00 00 mov ax,offset L3 

0012 50 push ax 

0013 e8 00 00 call _printf 

0016 83 c4& 02 add sp,0002H 

0019 e8 00 00 call agtKey 

O0ic e8 00 00 call ascrncClr 

0O1f e8 00 00 call _Start_timer 

0022 c7 46 fc 00 00 mov word ptr -4H[bp] ,0000H 
0027 8b 46 fc L1 mov ax, -4H [bp] 

002a 2b d2 sub dx , dx 

002c e8 00 00 call amvCur 

002f b8 5a 00 mov ax,offset _xdat 
0032 50 push ax 

0033 e8 00 00 call _puts 

0036 83 c4 02 add sp,0002H 

0039 ff 46 fc inc word ptr -4H [bp] 
003c 83 7e fc 16 cmp word ptr -4H[bp] ,0016H 
0040 7c e5 jl L1 

0042 c7 46 fc 00 00 mov word ptr -4H[bp] ,O000H 
0047 8b 46 fc L2 mov ax, -4H [bp] 

004a 2b d2 sub dx , dx 

004c e8 00 00 call @amvCur 

004f b8 aa 00 mov ax,offset _odat 
0052 50 push ax 

0053 e8 00 00 call _puts 

0056 83 c4& 02 add sp,0002H 

0059 ff 46 fc inc word ptr -4H[bp] 
005c 83 7e fc 16 cmp word ptr -4H[bp] ,0016H 
0060 7c e5 jl L2 

0062 e8 00 00 call _Stop_timer 

0065 b8 17 00 mov ax,0017H 

0068 99 cwd | 

0069 e8 00 00 call amvCur 

006c e8 00 00 call _get_jiffy 

006f 50 push ax 
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50 


Continued. 


b8 2e 00 
30 

e8 00 00 
83 c4 04 


83 ec 02 


89 46 fe 
8b 46 fe 


agtKey 


ascrnclr 


amvCur 
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ax,offset L4 
ax 

_printf 

sp, 0004H 
_remove_timer 
ax,offset L5 
ax 

_printf 
sp,0002H 
agtKey 
ascrnctr 


sp, bp 
bp 


bp 

bp, sp 

sp, 0002H 
ah , 00H 

16H 

-2H [bp] , ax 
ax, -2H [bp] 
sp, bp 

bp 


bp 

bp, sp 
ah , 06H 
al, OOH 
bh , 07H 
ch, 00H 
cl,00H 
dh, 18H 
dl ,4fH 
10H 

ah ,02H 
bh , OOH 
dh , OOH 
dt, 00H 
10H 


sp, bp 
bp 


bp 

bp, sp 

sp, 0004H 
dx 

ax 

-2H [bp] , al 
-4H [bp] , dl 
ah, 02H 

bh , OOH 

dh , -2H [bp] 
dl, -4H [bp] 
10H 

sp, bp 

bp 


1-16 Continued. 
No disassembly errors 


Segment: ' DATA' WORD 000000fa bytes 


0000 53 63 72 65 65 6e 20 74 L3 - Screen t 
0008 65 73 74 20 70 72 &6f 67 - est prog 
0010 72 61 6d Oa 50 72 65 73 - ram.Pres 
0018 73 20 61 6e 79 20 6b 65 - s any ke 
0020 79 20 74 6f 20 63 6f 6e - y to con 
0028 74 69 6e 75 65 00 - tinue. 
002e 4a 69 66 66 79 20 43 6f L4 - Jiffy Co 
0036 75 6e 74 20 3d 20 25 64 - unt = Xd 
003e Oa 00 a ele 
0040 50 72 65 73 73 20 61 6e L5 - Press an 
0048 79 20 6b 65 79 20 74 6f - y key to 
0050 20 63 6f 6e 74 69 6e 75 - continu 
0058 65 00 - e. 
005a 58 58 58 58 58 58 58 58 _xdat - XXXXXXXX 
--- Above line repeats 8 times --- 
00a2 58 58 58 58 58 58 58 00 - XXXXXXX. 
OOaa 4f 4f 4f 4f 4f 4f 4f 4f _odat - 00000000 
--- Above line repeats 8 times --- 
OOf2 4f 4f 4f 4f 4f 4f 4f 00 - 0000000. 


No disassembly errors 


The size of PROG5.OBJ and PROGS.EXE keep shrinking, which is 
good. However the program’s execution is not getting any faster, which is 
not good. Let’s compare the final results. 


Compile PROG4.OBJ PROG4.EXE PROG4.EXE 
Options Size Size Speed 

(/Gd default) 1136 7209 28 jiffys 

Gr /Gs 1080 7177 28 jiffys 
Compile PROGS.OBJ PROGS.EXE PROGS.EXE 
(/Gd default) 1052 7017 27 jiffys 

/Gr /Gs 992 6985 27 jiffys 


PROG5.OBJ and PROGS.EXE continue to shrink, but we’re stuck at 27 jif- 
fys. However, when we use MASM 5.1 to begin dealing with function printf 
(...), execution speed will change. 


MASM 5.1’s new PROC and USES directives 


Iam an enthusiastic MASM 5.1 user because the PROC and USES directives 
have made writing assembly language subroutines for C lightweight duty. 
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This is more so true when writing assembly subroutines designed to work 
in the large memory model. MASM 5.1 is really an essential optimization 
tool when learning how to develop small, medium, and large memory 
model libraries. 

Simply, the USES directive tells the assembler which registers to save 
before the meat of the assembly subroutine is called and restores the pre- 
viously saved registers after the meat of the routine is digested. The PROC 
directive provides a parameter list for use in the assembly subroutine. The 
stack frame adjustments for all the memory models are automatically cal- 
culated at assembly time. Now, isn’t that nice? You bet it is. 

Let’s say that you create an assembly-based subroutine for a function 
to move the cursor. Here is how the USES and PROC directives might look: 


mvCur PROC USES BX DX,row:BYTE,co/lumn: BYTE 


In the mvCur example BX and DX will be saved and restored automatically. 
Byte variables row and column may be accessed directly by name and 
moved to the appropriate registers in the subroutine. That’s all there is to 
using PROC and USES. 

Function bdWrite(...) is a BIOS string-write function that will replace the 
function printf(..., which was used in PROGS.C (FIG. 1-14). The syntax for 
function bdWrite (...) is: 


bdWrite row,col, len, string, attr wm 


where row = 8-bit row designate 
col = 8-bit column designate 
len = 16-bit string length designate 
string = pointer to string 
att = 8-bit screen attribute 
wm = 8-bit write mode designate 


O = string chars only/cursor not updated 

1 = string chars only/cursor updated 

2 = string chars & attr/cursor not updated 
3 = string chars & attr/cursor updated 


Function bdWrite(...) uses the BIOS to write the string to the screen. This 
method should prove faster than the standard C library function printf(...). 
Let’s see if that will prove true. BDWRITE.ASM, shown in FIG. 1-17, is the 
source code to the bdWrite(...) function. 

Note how the USES and PROC directives are used. Those of you who are 
assembly mavens will note that I saved and restored a few more registers 
using USES than I needed. I did that to amplify how MASM 5.1 automates 
the parameter-passing, stack-frame setup, and register-saving schemes. 

Let’s use the AS.BAT file, which was used to assemble TIMER.ASM, to 
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1-17 The source code listing to BDWRITE.ASM. 


bdWrite 


Calling Registers: 
AH 


AL = 0 String 
= 1 String 
=2 String 
=3 String 

BL = 

CX = 

DH = 

DL = 

ES:BP 

Returns: 

(nothing) 


Writes a string of predetermined length 

to the screen at a specified row and colum 
screen location. Cursor placement and the 
screen attribute are also controlled. 


13h BIOS function 


chars / cursor not updated 
chars / cursor updated 
chars & attributes / 
cursor not updated 

chars & attributes / 
cursor updated 


attr Video attribute (modes 0 & 1) 
length Length of string 

row Start string write at row 

col Start string write at column 
= ptr Pointer to string 


~ 


; Prepare Segment ordering 


DOSSEG 


; Select memory model and language 


if mdl eq 1 

-MODEL SMALL ,C 
elseif mdl eq 2 

-MODEL MEDIUM,C 
else 

-MODEL _—LARGE,C 
endif 


; begin code segment 
. CODE 
bdWrite PROC USES DS E 


mov AH,OFh 
int 10h 


S BX CX,r:BYTE,c:BYTE, len:WORD,string:PTR,a:BYTE,wm:BYTE 


me ™Me Ne Be Be Me We 


get active display page to BH 
via BIOS 

write string BIOS function 
write mode to AL 

attribute to BL 

length of string to CX 

start row for string write 
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1-17 Continued. 


mov 


if mdl eq 3 


les 
else 
push 
pop 
mov 
endif 
int 


DL,c 

BP, string 
DS 

ES 

BP, string 


10h 


™=e Se Be Bs &® 


- start column for string write 
if large model 
ES gets seg, BP gets offset 
small and medium model 
means ES = DS 


invode BIOS to print string 


ret 

bdWrite ENDP 
END 

assemble BDWRITE.ASM. At the command line, type: 
as bdwrite 


and press Enter. 
Figure 1-18 presents the disassembled listing to BDWRITE.OBJ. Com- 
pare BDWRITE.ASM (FIG. 1-17) to the disassembled listing of BDWRITE. 


1-18 The disassembled listing to BDWRITE.OBu. 


Module: bdwrite.ASM 
Group: 'DGROUP' DATA 


Segment: '_TEXT' WORD 00000029 bytes 


0000 55 _bdWrite push bp 

0001 8b ec mov bp, sp 

0003 ‘le push ds 

0004 06 push es 

0005 53 push bx 

0006 51 push CX 

0007 bé4 Of Mov ah, OfH 
0009 cd 10 int 10H 

000b b4 13 mov ah, 13H 
000d 8a 46 Oe “Mov al ,+0eH [bp] 
0010 8a 5e 0c mov bl, +0cH [bp] 
0013 8b 4e 08 mov cx, +8H [bp] 
0016 8a 76 04 mov dh, +4H [bp] 
0019 8a 56 06 mov dl, +6H [bp] 
OO1c ie push ds 

001d 07 pop es 

OO0le 8b 6e 0a mov bp, +0aH [bp] 
0021 cd 10 int 10H 

0023 59 pop Cx 

0024 5b pop bx 

0025 07 pop es 

0026 If pop ds 

0027 5d pop bp 

0028 c3 ret 


No disassembly errors 
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OBJ (FIG. 1-18). Remember that BDWRITE.ASM has been assembled in the 
small model so consider the if...endif condition assembly expression during 
the comparison. See how they differ. You will be able to see how MASM 5.1 
automates much of the assembly routine building process. 

PROG6.C, shown in FIG. 1-19, is an updated version of PROGS.C that 
uses function bdWrite(...) to write the strings to the screen. 


1-19 The source code listing to PROG6.C. 


SILITIITLTTTTITLTD TTT TTT 


// 

// PROG6.C 

// 

// Stage 2 optimization program 

// 

// Use MASM 5.1 to replace puts(...) 
// with bdWrite(...) 


If 
VILTTTLITTTTTIT TLL AAA AT 
// include files 


#include <stdio.h> 
#include <string.h> 
#include <dos.h> 


// _cdecl function prototypes ensures 
// standard Microsoft parameter passing 
// and pre_underscore function naming 


void _cdecl initialize_timer(); 

void _cdecl remove_timer(); 

void cdecl reset_timer(); 

void _cdecl start_timer(); 

void _cdecl stop _timer(); 

int _cdecl get_jiffy(void); 

void _cdecl bdWrite(int, int,int,char *,char,char); 


// functions declared without _cdecl 
// permit you to use _fastcall (/Gr) 
// parameter passing 


void main(void); 
int gtKey(void); 
void sernClr(void); 
void mvCur(int, int); 


// data 


char xdat (80) = ¢ 
gE TK TK, 
KE KY RIK eRe RK EK, 
Oe ee I ee eee, 
ee Gera) Saree Carte Gore Core Lene Cay Cee ame fags 
ee i Cee Grae Gla Gee Ge Game Coe, dae 
Oe Ke te Xe 
Et KY Xt tk, Ke IK, TX, 
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1-19 Continued. 
Oe te Te Xt KS, Pak 'X',0 }; 

char odat [80] = { 
10h OF OF. 10%. fot; Of. ‘oO! 1D! Of, Of, 
10? 70", 'QO', 'O', tor. ‘OF. *O*, a 8 a ‘OF, 1O* 
Oh. 108 '0" "0%. *0', O40 10). tot ‘OF, 
'O? .'0', ‘Ot; ‘Or. ‘Ot. ‘oO! ‘0! , ‘oO? 'O' ‘Or, 
tO TO" tO! FO! FOr. rOe, SOr. ‘Of. tor. ‘Ol 
Ot tOF ‘QO’, Or. 'O', ‘O', a 0 Ls 'QO', ro! fo", 
tO! "0%, ‘0%, ‘O' ‘Oe 50%; toe. 'QO', oO! ‘O°. 
Of. 10. ‘Oh ‘Q', ‘Oe. a he ‘O', ‘QO', 'o' 0 >; 

// program begins here 

void 

main() 

{ 

int count,ctr; 

// initialize the jiffy timer 

initialize _timer(); 

// stop and reset the the jiffy timer 


reset_timer(); 
stop_timer(); 


// print message 

printf("Screen test program\nPress any key to continue"); 
// wait for key press 

gtKey(); 

// clear the screen 

sernclr(); 

// start the timer 

start_timer(); 

// print 20 rows of Xs to the screen 


for(count=0; count<22: count++) 
bdWrite(count ,0,strlen(xdat),xdat,7,0); 


// print 20 rows of Os to the screen 


for(count=0; count<22: count++) 
bdWrite(count,0,strlen(odat),odat,7,0); 


// stop the timer 
stop timer); 


// adjust the cursor 
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1-19 Continued. 
mvCur (23,0); 


// print the jiffy count for screen write 
printf("Jiffy Count = Xd\n",get_jiffy()); 
// remove the timer 

remove_timer(); 

// print message 

printf("Press any key to continue"); 

// wait for key press 

gtKey(); 

// clear the screen and return to DOS 
sernClr(); 


} 


SULTTTILTTTTLAT LATTA TTT 
// 


// gtKey 

// 

// Uses the BIOS to stop program execution 
// and waits for a key press to continue 
// 


// 
// Calling Registers: 
// AH =0 


// Return Registers: 

// AH = Key Scan Code 

// AL = Key Character code 

// 
ULL 


int 
gtKey() 
{ 

int r; 


// invoke inline assembler 


oi 


mov AH,O ; function 0 
int 16h : invoke int 10h 
mov r,AX  ; prepare return 


return(r); 
> 
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1-19 Continued. 


SIVTLIVTTATT TTT TTT TAA AAT 
// 
// sernclr 


// Clears the screen via the BIOS 


// AL 


// Return Registers: 
// (nothing) 
/ 


/ 
SILLIILITTIT TTT TTT TTA 


void 
scrnctr() 


// invoke inline assembler 


mov AH,6 3; scroll up function 


mov AL,O ; clear entire window 
mov BH,/ ; use normal attribute 
mov CH,O ; upper left row = 0 
mov CL,O ; upper left col = 0 
mov DH,24 ; lower right row = 24 
mov DL,79 ; upper right col = 0=79 
int 10h 3; invoke interrupt 10h 
mov AH,2 ; move cursor 
mov BH,O ; on page 0 
mov DH,O ; to row 0 
mov DL,O ; column 0 
int 10h =; via BIOS int 10h 
> 

} 

SULLLTITTVTTLTT ATTA AAA AT 

// 

// mvCur 

// 


// Move the cursor to a specified row 
// and column location 


// 

// Calling Registers: 
// AH =e2 

// BH=0 

// OH = row value 

// ODL = column value 
tf 

VULLVTTTTTAT LATTA ATA AAT 
void 

mvCurCint row,int col) 
{ 
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1-19 Continued. 
char r,c; 


// set 8 bit chars 


r 
Cc 


(char )row; 
(char)col; 


// invoke inline assembler 


{ 
mov AH,2 ; move cursor 
mov BH,O ; on page 0 
mov DH,r ; to row 0 


mov DL,c ; column 0 
int 10h ; via BIOS int 10h 


Let’s compile and link the resultant PROG6.OBJ with TIMER.OBJ 
and BDWRITE.OBuJ. At the command line, type: 


cl /Gs /Gr prog6.c timerobj bdwrite.ob; 


and press Enter. The results are expected. 


Compile PROG4.0OBJ PROG4.EXE PROG4.EXE 


Options Size Size Speed 
(/Gd default) 1136 7209 28 jiffys 
/Gr /Gs 1080 7177 28 jiffys 


Compile PROGS.OBJ PROGS.EXE PROGS.EXE 


(/Gd default) 1052 7017 27 jiffys 
Gr /Gs 992 6985 27 jiffys 


Compile § PROG6.OBJ PROG6.EXE PROG6.EXE 
[Gr IGs 1028 6633 18 jiffys 


Now we're starting to make some headway in dealing with both pro- 
gram size and execution time. Let’s look at program size first. Do you see 
why PROG6.OBJ is larger than PROG5.OBJ using the /Gr and /Gs 
switches? The answer: PROG6G.C uses the assembly crafted replacement 
function bdWrite(.... which uses _cdecl on-the-stack parameter passing. 
PROGS.C uses _fastcall function printf(.... PROG6.OBJ increased in size 
because of function bdWrite(...)’s _cdecl. 

However, even though PROG6.OBJ is bigger than PROGS.OBJ, PROG6. 
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EXE is smaller than PROGS.EXE by 352 bytes. Do you see why this seem- 
ing incongruity exists? The answer: function bdWrite(...) is smaller than 
function printf(...). Function printf(...) is really overkill for the needs of the 
screen writes. 

Finally, starting with the first version of PROG4.EXE here are the com- 
parison statistics. PROG6.EXE is 576 bytes smaller than PROG4.EXE. This 
represents a savings in program size by approximately eight percent. 
PROG6.EXE’s execution time was 10 jiffys less than PROG4.EXE’s execu- 
tion time. This represents an approximate 36 percent increase in exe- 
cution speed. 

Decreasing program size and increasing program execution speed 
while retaining program functionality is what optimization is all about. 
This isn’t the best we’ll do, however. The discussion of direct video access 
in chapter 4 will top these results. 


Planning your multimode! optimized TAB library 


For me, planning a library is fun. The process, if handled in an orderly 
fashion, can prove quite rewarding. The guidelines for library building pre- 
sented in this section of chapter 1 are just that, guidelines. They work for 
my needs, but might not work for your needs. Only take what fits your 
needs. 

In this book, this library will be designed to work exclusively with 
Microsoft 6.0. That means you can use Microsoft C 6.0’s specialized opti- 
mization features in coding the library. 


Thoroughly plan your library Make a list of categories and functions for 
your library. Once completed you’ll have a project work schedule at hand. 


Make execution speed a higher priority than program size Snappy program 
performance is essential for every commercial program. That includes 
every facet of the program’s performance. Make every effort to write the 
smallest object modules that will execute in the least time. If you are faced 
with the choice of speed or size, always choose speed, unless your program 
is on the verge of being too large to run on any machine. 


Use /Gr or _fastcall for every C-generated module Because passing parame- 
ters in registers is faster and smaller than passing parameters on the 
stack, use the /Gr or _fastcall parameter passing convention for all C-gener- 
ated object modules. 


Use _cdecl for every assembly-generated module Because MASM 5.1’s USES 
and PROC directives support parameter passing on the stack, declare all 
assembly-generated functions as _cdecl. It will greatly simplify assembly 
language object module development. 


Use the inline assembler whenever possible Because this optimized library 
is Microsoft C 6.0 specific, use the inline assembler as much as possible in 
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all C modules. Using the inline assembler increases performance while 
decreasing program size. 


Write and test one library module at atime Write the source to a function, 
test the function in the small, medium, and large memory modules, and 
then add the appropriate memory-model object module to your TAB 
libraries. Following this sequence will reduce debugging headaches at a 
later date. Guaranteed (from experience)! 


To me, each library-building recommendation seems to fall within my 
boundaries of good common sense. However, common sense is not a uni- 
versally-agreed upon phenomenon. Try to be intuitive in the library-build- 
ing process. You might come across many serendipitous optimization 
strategies. 


Summary 


This long chapter started by introducing the jiffy timer. This timer pro- 
vides you with a crude (by computer time standards, that is) way to mea- 
sure program execution. Feel free to use the jiffy timer in your programs to 
help identify program execution bottlenecks. 

The use of Microsoft C 6.0’s custom compilation switches was intro- 
duced. The /Ot, optimize for speed, /Oi, optimize with intrinsic functions, 
/Ol, optimize loop execution, /Gs, optimize by removing stack probes, and 
/Gr, pass parameters in the registers switches were all discussed. I con- 
cluded that when using custom compiler switches, it’s smart to check the 
performance of your program carefully to make sure you are getting pro- 
gram execution and program size changes in the direction you wish. 

The inline assembler was discussed. It proved to be a valuable opti- 
mizing option of Microsoft C 6.0. 

Passing parameters on the registers by using either the /Gr compiler 
switch or the _fastcall function prototype proved to be a valuable optimizing 
option of Microsoft C 6.0. 

MASM 5.1’s new PROC and USES directives alleviates much pain in 
writing assembly-generated object modules for C libraries. MASM 5.1 
proved to be a valuable optimizing tool within the Microsoft C 6.0 library 
development environment. 

Here is a final summary of my Microsoft C 6.0 library building strate- 
gies. 


Thoroughly plan your library 

Make execution speed a higher priority than program size 
Use /Gr or _fastcall for every C-generated module 

Use _cdecl for every assembly-generated module 

Use the inline assembler whenever possible 

Test each object module thoroughly 

Write and test one library module at a time 


Summary 61 


ne 


2 
Library header files 


It seems the wisest strategy for me to present all the book’s function proto- 
types, defines, and structures at this time as opposed to presenting the 
information in a piecemeal fashion later in the text. Four header files are 
presented in this chapter: TPROTO.H, TSTRUCT.H, KEYBOARD.H, and 
ASCII.H. 


TPROTO.H: Function prototypes 


TPROTO.H, shown in FIG. 2-1, declares all the functions presented in this 
book. Note, however, that there are a few functions prototyped that are not 
contained in this book. TPROTO.H declares the functions using the _cdecl 
or _fastcall conventions. All assembly routines are prototyped using _cdecl 
and most C-generated functions are prototyped using _fastcall. 


2-1 The source code listing to TPROTO.H. 


VILTLSTTPLLTTAT TDA TATA ATT 
// 

// tproto.h 

// 

// Microsoft C 6.0 function 

// prototypes 

// 
SILLLTLTIITTTA TTA TATA TAA TT 
// include more library files 

#include <keyboard.h> 

#include <ascii.h> 

#include <tstruct.h> 


// define MK_FP (make far pointer) 
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2-1 Continued. 
// if not defined 


#ifndef MK_FP 


#define MK_FP(seg,ofs) ((void far *) \ 


(((unsigned long)(seg) << 16) | (unsigned) (ofs))) 
#endi f 


SIVTLLTTTALLTL TLL A TT 

Ii 

// _fastcall for these routines 

// means that parameters are 

// passed in the registers 

// (effecient parameter passing convention) 
// 


// A... Function prototypes 


long _fastcall atob(char *); 
long _fastcall atoh(char *); 


// B... Function prototypes 


void _fastcall beep(void); 

unsigned long _fastcall bitfld(unsigned long, int, int,unsigned long); 
char * _fastcall bitflds(unsigned long, int, int,char *); 

void _fastcall bleep(void); 

void _fastcall boxRect(RECT *, int, int); 

int _fastcall button(char **,char **,int,int,char *, int, int); 

int _fastcall buttonx(char **,char **,char **,int,int,char *, int, int); 


// C... Function prototypes 


void _fastcall clrRect(RECT *); 

void _fastcall clrtWind(TWIND *); 

void _fastcall clrWind(WIND *); 

unsigned char _fastcall crotl(unsigned char, int); 
unsigned char _fastcall crotr(unsigned char, int); 


// D... Function prototypes 


void _fastcall Delay(int, int); 

void _fastcall delChar(char *); 

void _fastcall delay(Cint, int); 

void _fastcall dialog(char **,int,int,char *, int); 
long _fastcall diskFree(void); 

DSKINFO * _fastcall diskInfo(DSKINFO *); 

void _fastcall disptWin(TWIND *); 

void _fastcall dispWind(WIND *); 

void _fastcall dosShell (void); 

int _fastcall dropmenu(char **, int, int); 

int _fastcall drpmsmnu(char **,int,char *, int); 
void _fastcall dsyRect(RECT *); 

void _fastcall dsyWind(WIND *); 

void _fastcall dupRect(RECT *,RECT *); 


// E... Function prototypes 


void _fastcall exit_bad(char *); 
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2-1 Continued. 
// F... Function prototypes 


void _fastcall fillRect(RECT *, int); 
int _fastcall findChar(int,char *); 


int _fastcall funckeys(char **, int); 
// G... Function prototypes 


char _fastcall gtChar(void); 

void _fastcall gtCurcint *,int *); 

int _fastcall gtKey(void); 

void _fastcall gtMode(int *,int *,int *); 
char _fastcall gtScan(void); 


// H... Function prototypes 
void _fastcall hideLotus(LOTUS_CLASS *); 
// 1... Function prototypes 


int _fastcall inpflt(float *, int); 
int _fastcall inpnum(long *, int); 
void _fastcall insChar(char *,char); 
void _fastcall insNum(char *, int); 
int _fastcall intense(int); 

int _fastcall inverse(int); 


// L... Function prototypes 
int _fastcall lotusEvent(LOTUS_CLASS *,int *); 
// M... Function prototypes 


char * _fastcall memichr(char *,char, int); 
int _fastcall menubarEvent(MENUBAR_CLASS *,int *); 


// N... Function prototypes 
void new_file_stats(void); 
// 0... Function prototypes 


void _fastcall offCur(void); 

void _fastcall offRect(RECT *,int,int ); 

void _fastcall onCur(void); 

int _fastcall openDropDown(MENUBAR_CLASS *,int,char **,int []); 

char * _fastcall openFileName(char *,char *, int, int, int, int, int); 

LOTUS CLASS * _fastcall openLotus(LOTUS_CLASS *,char **,char **, 
int, int, int); 

int _fastcall openMessage(char **, int, int, int,int); 

MENUBAR_CLASS * _fastcall openMenuBar(MENUBAR_CLASS *,char **,int *, 
int, int, int); 

int _fastcall openName(char *,char *, int, int, int, int); 


// P... Function prototypes 
void * fastcall popmenu(char **,void **,int,int,char *,int,int); 


int _fastcall prompt(char *, int); 
int _fastcall promptne(char *, int); 
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2-1 Continued. 


void _fastcall putChr(char); 
void _fastcall putStr(char *); 


// 4... Function prototypes 


int _fastcall quitProgram(int, int, int, int); 
int _fastcall quitEvent(int *); 


// R... Function prototypes 


void _fastcall rCloc(void); 

int _fastcall rdChar(void); 

void _fastcall rdImg(WIND *); 

void _fastcall rdWind(WIND *); 
void _fastcall remvWind(WIND *); 
void _fastcall remvtWin(TWIND *); 
void _fastcall restRect(RECT *); 
void _fastcall restScrn(void); 
char * _fastcall ritoaCint,char *,int, int,char); 
void _fastcall rLpen(LIGHT_PEN *); 
void _fastcall rmvCur(int, int); 
void _fastcall rsizeCur(void); 


// S... Function prototypes 


void _fastcall saveRect(RECT *); 

void _fastcall saveScrn(void); 

void _fastcall scDn(RECT *, int, int); 

void _fastcall sCloc(void); 

void _fastcall scrndttr(int); 

void _fastcall scUp(RECT *, int, int); 

void _fastcall setAttr(WIND *, int); 

void _fastcall setBord(WIND *, int); 

RECT * _fastcall setRect(RECT *, int, int, int, int); 
void _fastcall setTitle(WIND *,char *); 

void _fastcall settAttr(TWIND *, int); 

void _fastcall settBord(TWIND *, int); 

void _fastcall settTitlL(TWIND *,char *); 

int _fastcall settWin(TWIND *, int, int, int, int,unsigned int*); 
WIND * fastcall setWind(WIND *, int, int, int, int); 
unsigned int _fastcall sizeIlmg(WIND *); 

unsigned int _fastcall sizeRect(RECT *); 

void _fastcall showLotus(LOTUS_CLASS *); 

void _fastcall showMenuBar(MENUBAR_CLASS *); 
void _fastcall sizeCur(int, int); 

void _fastcall smbits(int,int,char *, int); 

void _fastcall smbitsv(int, int,unsigned long, int, int); 
void _fastcall ssizeCur(void); 

int _fastcall strAnal(int *,int *,char *); 

void _fastcall strCjust(char *); 

char * fastcall strins(char *,char *, int); 

void _fastcall stripblk(char *); 

void _fastcall strEnul(char *); 

void _fastcall strLjust(char *); 

void _fastcall strRjust(char *); 

void _fastcall strttWin(TWIND *); 

void _fastcall strtWind(WIND *); 

void _fastcall subRect(RECT *,RECT *); 
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2-1 Continued. 

void _fastcall swapImg(TWIND *); 

// T... Function prototypes 

void _fastcall tvdAttr(TWIND *, int, int, int,char); 


void fastcall tvdHoriz(TWIND *,int, int, int, int); 
void fastcall tvdVert(TWIND *, int, int, int, int); 


void fastcall tvdWrite(TWIND *,int,int,int,char *,char); 


int _fastcall tvrdChar(TWIND *, int, int); 
// VN... Function prototypes 


int _fastcall vdEdit(char *, int, int, int, int, int); 
int _fastcall vdprmne(char *,int,int, int, int); 
int _fastcall vdprompt(char *, int, int, int, int); 
void _fastcall vdStr(int, int, int,char *,char); 
int _fastcall vrdChar(int, int); 


// W... Function prototypes 


void _fastcall wmvCur(WIND *, int, int); 

char * _fastcall words(long,char *); 

char * _fastcall word0_19¢int); 

void _fastcall wrBox(WIND *); 

void _fastcall wrChar(char, int); 

void _fastcall wrimg(WIND *); 

void _fastcall wrWind(WIND *); 

void _fastcall wrtBox(TWIND *); 

void _fastcall wvdAttr(WIND *,int,int, int, int); 
void _fastcall wvdHoriz(WIND *,int,int,int, int); 


int _fastcall wvdprmne(WIND *,char *, int, int, int, int); 
int _fastcall wvdprmpt(WIND *,char *, int, int, int, int); 


void _fastcall wvdScdn(WIND *, int); 
void _fastcall wvdScup(WIND *, int);- 


void _fastcall wvdStr(WIND *,int,int,int,char *,char); 


void _fastcall wvdWrite(WIND *,int,int,int,char *,int); 


void _fastcall wvdVert(WIND *,int,int,int, int); 
int _fastcall wvrdChar(WIND *,int,int); 
void _fastcall wvdChar(WIND *, int, int, int); 


SILTLLTLLLLTTTLLTTDT TITTIES 
// 

// _cdecl for these routines 

// means that parameters are 

// passed on the stack 

// (common parameter passing convention) 
I 


typedef int (far *askerfcnptr)(int, int, int, int); 


void far _cdecl setceask(askerfcnptr); 
int far _cdecl asker(int, int, int, int); 
void far _cdecl interrupt cetrap(void); 


void _cdecl adjclock(void); 
void cdeci setTimer(void); 
long _cdecl getvec(int); 

void _cdecl setvec(int, long); 
void _cdecl setCE(void); 
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2-1 Continued. 


void _cdecl set16(int, int, int, int); 
void cdecl set9dos(int, int, int); 
// int tsrfind¢int); 

int _cdecl tsrfind(void); 

int _cdecl dosfind(int); 

int _cdecl tsrremv(void); 

int _cdecl dosremv(void); 


void _cdecl 
void _cdecl 
void cdecl 
void _cdecl 
void _cdecl 


tsr(void); 
tsr2cint); 
tsr9(int); 


setPSvec( void); 


tsrps(int); 


void cdecl DispErr(void); 
void cdecl ErasErr(void); 
void tsrtime(int); 

void setTimer(void); 

void tsrgtime(void); 

void setClock(int, int, int); 


SILTTTTTTTAT TTT TTT AAA 
// 


// _cdecl for assembly library routines 
// 


void _cdecl 
void _cdecl 


addRect(RECT *,RECT *); 
ascup(int, int, int, int, int, int, int); 


void _cdecl 
void _cdecl 


bRScrn(void); 
bSScrn(void); 


void _cdecl 
void _cdecl 
void _cdecl 
void _cdecl 
void _cdecl 


caplkoff(); 
caplkon(); 
clrpage(int, int); 
copymono( void); 
copypage( int, int); 


int _cdecl g shape(void); 
int _cdecl getdrive(void); 


int _cdecl gtKBstat(void); 
int _cdecl gtKBflag(void); 
int _cdecl gtKBflsh(int); 


void _cdecl insoff(void); 
void cdecl inson(void); 
int _cdecl isqrt(long); 


int _cdecl kbstuff(char); 


int _cdecl mkAttr(Cint, int, int, int); 
int _cdecl mkToken(int, int); 

int _cdecl msinit(void); 

void _cdecl mson(void); 

void _cdecl msoff(void); 
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2-1 Continued. 


int _cdecl msstat(int *,int *); 
void _cdecl mvCur(int, int); 


void _cdecl numlkoff(void); 
void _cdecl numlkon(void); 
int _cdecl numpport(void); 
int _cdecl numsport(void); 


void _cdecl of fSound(void); 
void _cdecl onSound( int); 


int _cdecl prChar(int,char); 
int _cdecl prinit(int); 

int _cdecl prScrn(int); 

int _cdecl prSernFFC(int); 
int _cdecl prStatus(Cint); 
int _cdecl psadd(void *); 
int _cdecl pscan(void); 
void far * _cdecl psqueue(void); 
int _cdecl psremv(int); 

int _cdecl psrestrt(void); 
int _cdecl psstat(void); 
void _cdecl putCRLF(void); 
void _cdecl putLF(void); 
void _cdecl putCR(void); 


int _cdecl ramSize(void); 


void _cdecl s_shape(int); 

void _cdecl scrlkoff (void); 

void _cdecl scerlkon(void); 

void _cdecl sernClr(void); 

void _cdecl setdrive(int); 

void _cdecl sudchar(int, int, int, int); 


void _cdecl vdAttr(int, int, int, int); 

void _cdecl vdChar(int, int, int); 

void _cdecl vdChr(int, int, int); 

void _cdecl vdHoriz(int, int, int, int); 

void _cdecl vdpATTRCint, int, int, int, int); 
void cdecl vdpChar(int, int, int, int); 

void _cdecl vdpChr(int, int, int, int); 

void _cdecl vdpHoriz(int, int, int, int, int); 
void cdecl vdpVert(int, int, int, int, int); 
void cdecl vdpWriteCint,int,int,int,char *,int); 
void _cdecl vdVert(int, int, int, int); 

void _cdecl vdWriteCint, int, int,char *, int); 
void _cdecl vidiInit(void); 


TSTRUCT.H: Defines and structures 


TSTRUCT.-H, shown in FIG. 2-2, contains all the structures used in this text 
along with a few defines. TSTRUCT.H is included in TPROTO.H (see FIG. 2-1). 
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2-2 The source code listing to TSTRUCT.H. 


VIVPLTILLTTLT TD TLT DTT TT 
// 


// tstruct.h 

If 

// General purpose structure 
// definitions and defines 
// 


#define IMAGE unsigned int 


SILIVITTLTTT TDI TDA ALTA TTT 
// 


// Interface Structure List 
// 


VISTLITTLLATTDT TTT ATT 


define LOTUS_ITEM_MAX 20 
#def ine MENUBAR_ITEM_MAX 10 


SILTITTTTTITT TTL T DTT TT 
// 


// Structure for Lotus Style Window Interface 


// 


typedef struct { 
int number; // 
char *name[LOTUS_ITEM_MAX]; // 
char *explain([LOTUS_ITEM_MAX]; // 
int lot_map[LOTUS_ITEM_MAX] [2]; // 
int lotus_item; ff 
int old_lotus; // 
int lotus_open; // 
unsigned int imgbuf [160]; // 
} LOTUS CLASS; 


SILLTTTLATTLT TITTLE 


// 


number of LOTUS objects 
pointer to item name 

pointer to item explanation 
map for lotus item highlights 
highlight and 

item selection data 

status of lotus window 

top two rows screen image 


// Structure for Lotus Style Window Interface 


// 


typedef struct { 


int number; // number of MENUBAR objects 
char *name (MENUBAR_ITEM_ MAX]; // pointer to item name 
int mb_map[MENUBAR_ITEM_MAX] [2]; // map for menubar item highlights 


int key_list [MENUBAR_ITEM_MAX]; 
int menubar_item; // highlight and 


int old_menubar; // item selection data 
int menubar_open; // status of lotus window 


int si_attr; // item attribute 
int sinv_attr; // inverse attribute 
int sk_attr; // highlight key attribute 


int first_time; // first time 
unsigned int imgbuf [160]; // 
} MENUBAR_CLASS; 


/* 
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top two rows screen image 


2-2 Continued. 


* structures 
*/ 


typedef struct ( 


int ul_row; 
int ul_col; 
int lr_row; 
int lr_col; 
unsigned int img_size; 


upper left row 
upper left column 
lower right row 
lower right column 
window img size 


unsigned int far *img_ ptr; // pointer scrn image 
unsigned int far *wind_ptr; // pointer scrn image 
int box_type; // border selection 
int attr; // window attribute 
int visible; // window on 

int top_offset; // col offset title 
int top_length; // length title str 
int show_top; // display title 

int bot_offset; // col offset title 
int bot_length; // length title str 
int show bot; // display title 


char *t_title; 
char *b title; 


> WIND; 


typedef struct { 


int ul_row; 
int ul_col; 
int lr_row; 
int lr_col; 


ptr to t title str 
ptr to b title str 


upper left row 
upper left column 
lower right row 
lower right column 


unsigned int *img_ptr; // pointer scrn image 
int box_type; // border selection 
int attr; // window attribute 
int visible; // window on 


int show_top; 
char *t_title; 


> TWIND; 


typedef struct { 


unsigned char media_descr; 
unsigned int clust_avail; 
unsigned int clust_total; 
unsigned int sec_p clust; 
unsigned int bytes p sec; 


} DSKINFO; 


typedef struct { 


// 
// 
// 
// 
// 


display title 
ptr to t title str 


media descriptor byte 


# of free clusters on disk 
total # of clusters on disk 


# of sectors per cluster 


# of bytes per sector 


int mode; // video mode 

int row_width; // columns per row 

int page; // “video page 

unsigned int far *scrn; // pointer to video RAM 


} VIDEO; 


typedef struct { 


int ul_row; // upper left row 

int ul_col; // upper left column 
int lr_row; // lower right row 
int lr_col; // lower right column 
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2-2 Continued. 


unsigned int *image; 
> RECT; 


typedef struct { 
int row; 
int colum; 
} CUR_LOCATION; 


typedef struct { 
int status; 
int pix_col; 
int pix_row1; 
int pix_row2; 
int ch_row; 
int ch_col; 

>  LIGHT_PEN; 


pointer to scrn image 


cursor row 
cursor column 


pen down or up 
pixel colum 
pixel row 

pixel row 
character row 
character column 


SITIITLTTTLLLT TLL T TST ATTA TAT 


// 
// defines for wrbox 
// 


#define SS SS 0 
#define SSDD 1 
#define DD SS 2 
#define D.DDD 3 


SLLTTILLTLLLLTT TTT ATLA TS 
// 


//defines for mkAttr 
// 


#define BLACK 0 
#define BLUE 1 
#define GREEN 2 
#define CYAN 3 
#define RED 4 
#define MAGENTA 5 
#define BROWN 6 
#define WHITE 7 
#define NORMAL 7 
#define REVERSE 112 


#define ON_INTENSITY 8 
#define OFF_INTENSITY 0 


#define ON BLINK 128 


#define OFF BLINK 0 


SULTTLTITLITT TTT T TTT ATT 


// 


// defines for scroll routines 


// 


#define UP_SCROLL 6 
#define DOWN SCROLL 7 


VILISTTLITDTLT TTT TTT TTT TTT 


// 
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// defines for printer routines 
// 


#define PRINT_TIME_OUT 1 
#define I0_ERROR 4 
#define PRINT_SELECTED 8 
#def ine OUT_OF_PAPER 16 
#def ine ACKNOWLEDGE 32 
#define PRINT_NOT_BUSY 64 


SUVTTTTLTTT TLD TDTT TTT TT 


If 
// defines for flush kb buffer and get char 
// 


#def ine ON_ECHO CTRL 1 // on char echo and control-c enabled 


#define OFF_ECHO_CTRL_C 7 // off echo and control-c disabled 
#define OFF_ECHO 8 // off echo and control-c enabled 


VILTTTTLITTTLT TDA TTT TT 


If 
// defines for kb shift status 


#define RIGHT SHIFT 1 
#define LEFT SHIFT 2 
#define CLRL_PRESS 4 
#define ALT_PRESS 8&8 
#define SCROLL_LOCK 16 
#define NUM_LOCK 32 
#define CAPS LOCK 64 
#define INSERT_ON 128 


SISTTTTT TTT T TTT TTT TAT TT 


// defines for MENU routines 
If 


#define CENTER Oxff 
#define NUMBERED 1 
#define RESETROW 2 


VULTITTTTTTT TTT TTT AAA AAT TS 
// 

// defines for vdEdit 

// 


#define UPPER 1 
#define LOWER 2 
#define NAME 3 


SULTSISTSSTTTT TTT TTT TT 


// defines for mouse routines 


// 
#define LEFTBUTTON 1 


#define RIGHTBUTTON 2 
#define CNTRBUTTON 4 
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KEYBOARD.H: Keyboard scan and character codes 


KEYBOARD.H, shown in FIG. 2-3, contains an extensive listing of the key- 
board’s 16-bit scan and character codes. This header file will prove useful 
in developing keyboard-handler and data-entry routines. KEYBOARD.H is 
included in TPROTO.H (see FIG. 2-1). 


2-3 The source code listing to KEYBOARD.H. 


SILILVTLITITTATITTV TATA AAT AT 
// 
// keyboard.h 


// 

// keyboard scan and ascii codes 
// 

#define INSERT 0x5200 
#define DELETE 0x5300 
#define SPACE 0x3920 
#define ESC 0x011b 
#def ine ESCAPE 0x011b 
#define PGDN 0x5100 
#def ine PGUP 0x4900 
#define PERIOD 0x342e 
#define TAB 0x0f09 
#def ine RT SQUARE Oxib5d 
#define LT_SQUARE Ox1a5b 
#define RT_BRACKET O0x1b/7d 
#define LT BRACKET O0x1a7b 
#define CNTL_HOME 0x7700 
#define CNTL_END 0x7500 
#define CNTL_ENTER OxicOa 
#define CNTL_BS Ox0e/7f 
#define HOME 0x4700 
#define END 0x4 00 
#define s_BS 0x0008 
#define BS 0x0e08 
#def ine BACKSPACE 0x0e08 
#define s_CR 0x000d 
#define CR Ox1c0d 
#define ENTER Ox1c0d 
#def ine UP_ARROW 0x4800 
#define RIGHT_ARROW 0x4d00 
#define LEFT_ARROW 0x4b00 
#define DOWN_ARROW 0x5000 
#define F1 0x3b00 
#define F2 0x3c00 
#define F3 0x3d00 
#define F4 0x3e00 
#define F5 0x3f00 
#define F6 0x4000 
#define F7 0x4100 
#define F8 0x4200 
#define F9 0x4300 
#define F10 0x4400 
#define SHIFT TAB Ox0f00 
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2-3 Continued. 


#def ine 
#def ine 
#define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


SHIFT_HOME 
SHIFT_END 
SHIFT_INSERT 
SHIFT DELETE 
SHFT_INSERT 
SHFT_F1 
SHFT_F2 
SHFT_F3 
SHFT_F4 
SHFT_F5 
SHFT_F6 
SHFT_F7 
SHFT_F8 
SHFT_F9 
SHFT_F10 
SH_R_ARROW 
SH_L_ARROW 
SH_U_ARROW 
SH_D_ARROW 


CNTL_F1 
CNTL_F2 
CNTL_F3 
CNTL_F4 
CNTL_F5 
CNTL_F6 
CNTL_F7 
CNTL_F8 
CNTL_F9 
CNTL_F10 
CNTL_LEFTA 
CNTL_RIGHTA 


ALT_F1 
ALT_F2 
ALT_F3 
ALT_F4 
ALT_F5 
ALT_F6 
ALT_F7 
ALT_F8 
ALT_F9 
ALT_F10 


ALT_K 


ALT_N 
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0x4737 
0x4f31 
0x5230 
0x532e 
0x5230 
0x5400 
0x5500 
0x5600 
0x5700 
0x5800 
0x5900 
0x5a00 
0x5b00 
0x5c00 
0x5d00 
0x4d36 
0x4b34 
0x4838 
0x5032 


0x5e00 
0x5 f00 
0x6000 
0x6100 
0x6200 
0x6300 
0x6400 
0x6500 
0x6600 
0x6700 
0x7300 
0x7400 


0x6800 
0x6900 
0x6a00 
0x6b00 
0x6c00 
0x6d00 
0x6e00 
0x6f00 
0x7000 
0x7100 


0x1e00 
0x3000 
Ox2e00 
0x2000 
0x1200 
0x2100 
0x2200 
0x2300 
0x1700 
0x2400 
0x2500 
0x2600 
0x3200 
0x3100 
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2-3 Continued. 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#define 
#def ine 
#def ine 
#def ine 
#def ine 
#define 


#def ine 
#def ine 
#def ine 
#def ine 
#define 
#def ine 
#def ine 
#define 
#def ine 
#def ine 
#define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#define 


#define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


ALT_O 
ALT_P 
ALT_Q 
ALT_R 
ALT_S 
ALT_T 
ALT_U 
ALT_V 
ALT_W 
ALT_X 
ALT_Y 
ALT_2 


aor 
WN — © 


KR 
& 


717% I 
COON VI 


A 
i 


ALT 5 
ALT_6 
ALT_7 


0x1800 
0x1900 
0x1000 
0x1300 
0x1f00 
0x1400 
0x1600 
0x2f00 
0x1100 
0x2d00 
0x 1500 
O0x2c00 


0x1e01 
0x3002 
Ox2e03 
0x2004 
0x1205 
0x2106 
0x2207 
0x2308 
0x1709 
0x240a 
0x250b 
0x260c 
0x320d 
0x310e 
0x180f 
0x1910 
0x1011 
0x1312 
0x113 
0x1414 
0x1615 
Ox2#16 
0x1117 
Ox2d18 
0x1519 
Ox2cla 


0x0b30 
0x0231 
0x0332 
0x0433 
0x0534 
0x0635 
0x0736 
0x0837 
0x0938 
0x0a39 


0x8100 
0x7800 
0x7900 
0x7a00 
0x7b00 
0x7c00 
0x7d00 
0x7e00 
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2-3 Continued. 


#tdefine ALT_8 
#idefine ALT_9 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


#def ine K_LBRACK 


#def ine 


#def ine K_RBRACK 


K_SPACE 
K_EXCLAM 
K_QUOTE 
K_POUND 
K DOLLAR 


K_PERCENT 


K_AND 
K_APOST 

K_LPAREN 
K_RPAREN 
K_STAR 

K_PLUS 

K COMMA 
K_MINUS 
K_ PERIOD 
K_FSLASH 


K_COLON 
K_SCOLON 
K_LESS 
K_EQUAL 
K_GREAT 
K_QUEST 
K_AMPER 


RR KKK KK 
Lo ake bob § i 1) 
90ON> 


rnK we SOM”! 


RK KK A 


RK KK A A 
es as ee 
mxmoOVOz=z 


A 
“>A” 


aeoeae ae 
N< <x =< Cc 


K_BSLASH 


Ox7f00 
0x8000 


0x3920 
0x0221 
0x2822 
0x0423 
0x0524 
0x0625 
0x0826 
0x2827 
0x0A28 
0x0B29 
0x092A 
0x002B 
0x332C 
0x0C2D 
0x342E 
Ox352F 


Ox273A 
0x273B 
0x333C 
0x0D3D 
0x343E 
0x353F 
0x0340 


0x1E61 
0x3062 
0x2E63 
0x2064 
0x1265 
0x2166 
0x2267 
0x2368 
0x1769 
0x246A 
0x256B 
0x266C 
0x326D 
0x316E 
0x186F 
0x1970 
0x1071 
0x1372 
Ox1F 73 
0x1474 
0x1675 
Ox2F 76 
0x1177 
0x2D78 
0x1579 
Ox2C7A 


0x1A5B 
Ox2B5C 
0x1B5D 
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0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
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2-3 Continued. 


#define K_KARAT Ox075E 
#define K_UNDER 0x0C5C 
#define K_a Ox1E61 
#define K_b 0x3062 
#define K_c Ox2E63 
#define K_d 0x2064 
#define K_e 0x1265 
#define K_f 0x2166 
#define K_g 0x2267 
#define K_h 0x2368 
#define K_i 0x1769 
#define K_j 0x246A 
#define K_k 0x256B 
#define K_l 0x266C 
#define K_m 0x326D 
#define K_n 0x316E 
#define K_o 0x186F 
#define K_p 0x1970 
#define K_q 0x1071 
#define K_r 0x1372 
#define K_s Ox1F73 
#define K_t 0x1474 
#define K_u 0x1675 
#def ine K_v Ox2F76 
#define K_w 0x1177 
#define K_x 0x2D78 
#define K_y 0x1579 
#define K_z Ox2C7A 


ASCII.H: ASCII and miscellaneous defines 


ASCII.H, shown in FIG. 2-4, contains ASCII and miscellaneous defines. 
ASCII.H is included in TPROTO.H (see FIG. 2-1). 


2-4 The source code listing to ASCII.H. 


VISLLITTTTT TTT TTT TTA TT 
// ascii.h 

// 

// ascii def header file 


// 
SITLTTLTTLTT LTT TTA LTT TT TT 


#def ine aNUL 0 // null \0 delimeter 

#def ine aSOH 1 // “A - start of heading 

#def ine aSTX 2 // “B - start of text 

#def ine aETX 3 // “© - end of text 

#def ine aEOT 4 // “D - end of transmission 
#def ine aENQ 5 // “E - inquiry 

#def ine aACK 6 // “F - affirm acknowledgement 
#def ine aBEL 4 // “G - audible bell 
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2-4 Continued. 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#define 
#define 
#def ine 
#def ine 
#def ine 
#def ine 
#define 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


#def ine 
#def ine 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 


aBS 
aTAB 
alF 
aVT 
aFF 
aCrR 
aso 
aS! 
aDCE 
aDC1 
aDC2 
aDCc3 
aDc4 
aNAK 
aSYN 
aETB 
aCAN 
aEM 
aSUB 
aESC 
aFS 
aGS 
aRS 
aUS 
aSPC 


aCODE 
aHCR 
aCENTER 
aDOUBLE 
aEXPAND 
aSUPERS 
al TALIC 
aBOLD 


aTRUE 
aFALSE 


ONE_COL 
TWO_COL 
ONE_TOP 
TWO_TOP 
ONE_BOT 
TWO_BOT 
TWO_LR 
TWO_R 
TWO_UR 
TWO_TB 


VONE_COL 
XONE_COL 
XTWO_COL 


XTHREE_COL 


XONE_TOP 
XTWO_TOP 


XTHREE_TOP 


XONE_BOT 
XTWO_BOT 


XTHREE_BOT 
XTHREE_LR 


OONOUPWN — 


82 
83 
84 
85 
86 
87 
88 
89 
90 


// 
// 
// 
// 


> 


- backspace 

- horizontal tab 

- line feed 

- vertical tab 

- form feed 

- carriage return 
- shift out 

- shift in 

- data link escape 
device control 1 
- device control 2 
- device control 3 
- device control 4 
- neg acknowledge 
- synchronous idle 
- end of transmission 
- cancel 

- end of medium 

- substitute 
escape 

file sererator 
group seperator 
record seperator 
unlinked seperator 
space 


> 


> > > 


> 


> > > > > > 09 dD Dd 
N<x<M Ce CH wnwDmOvVdeE a BOrKeoerr=z 
’ 


> 


“character indicating printer command follows 


Hard carriage return 
code to center line 
double strike toggle 
emphasize toggle 
superscript toggle 
italics toggle 

bold toggle 


true 
false 


1 column format 
2 column format 


word per chart format 
1 column format 
2 column format 
3 column format 


Summary 
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2-4 Continued. 


#def ine XTHREE R91 
#idefine | XTHREE_P1 92 
#define §XTHREE_P2 93 
#define § XTHREE_TB 94 
#def ine XTHREE_UR 95 
#define § XTHREE_2T 96 
#define § XTHREE_2B 97 


Summary 


Chapter 2 presented four header files. Creating these files before building 
the library will considerably speed the process of working your way 
through the book. 

The first header file, TPROTO.H, contained function prototypes and 
also included the three remaining files in this chapter. TSTRUCT.H con- 
tained structure definitions and miscellaneous defines. KEYBOARD.H 
contained 16-bit key scan and character code definitions and ASCII.H con- 
tained ASCII and miscellaneous definitions. 

TPROTO.H should be included in every C source object module and all 
demonstration programs. 
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Active cursor-management 
functions 


In this chapter you will begin building your multimodel TAB C library. 
Three memory models will be supported. They are the small memory 
model, the medium memory model, and the large memory model. 

The first object module you will use to create your TAB C library is the 
TAB jiffy timer (TIMER.ASM was presented in chapter 1, FIG. 1-1). You will 
use Microsoft’s LIB.EXE library manager program to manage the library 
development process. 

Once you are familiar with the process of adding object modules to 
your libraries, active cursor-management functions are presented. Nestled 
within the presentation of these functions is a continued discussion of the 
attributes of using Microsoft C 6.0’s inline assembler versus Microsoft’s 
MASM 5.1 macro assembler. Let’s get started. 


Using the LIB.EXE library manager program 


LIB.EXE lets you add, replace, and delete object modules in your TAB C 
libraries. LIB.EXE also lets you get a listing of a library’s object module 
contents. To facilitate the use of LIB.EXE I use a few different batch files in 
my development work. To develop and test the code in this book I’ve orga- 
nized a portion of my hard disk drive in the following fashion: 


\ book All code related to this book 
\ book \ asm All assembly source code 

\ book \ scr All C source code 

\ book ~ lib All TAB library files 


\book\ sample All sample programs 
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All the batch files presented in this book reflect the directory setup on 
my hard disk drive. Of course, my way is one of a zillion possibilities. If you 
do not use my directory-naming setup, make sure that you change the 
batch files to reflect your needs. 

Let’s start by creating your small TAB library file. You create a new 
library file by adding an object module to a nonexistent library. You should 
now use the AS.BAT file presented in chapter 1 to assemble TIMER.ASM 
in the small memory model. At the command line, type 


as timer 


and press Enter. MASM 5.1 will assemble TIMER.ASM and the small 
memory model object module TIMER.OBJ will be created. 

I use a batch file named ADDLIB.BAT to add an object module to a 
library. For this book, I’ve named the TAB C libraries in the following fashion: 


TABS.LIB Small memory model library 
TABM.LIB Medium memory model library 
TABL.LIB Large memory model library 


ADDLIB.BAT receives two parameters. The first names the object 
module you wish to add, and the second parameter is a single letter that 
represents the S, M, or L in the TAB library’s name. Let’s look at ADDLIB 
-BAT, which adds a library object module. 


lib d: \ book N lib \ tab%2 + %1; 


Note that I’m keeping all my book-related source files on my D: disk drive. 
Use your text editor to create ADDLIB.BAT. 
Now it’s time to create your first TAB C library. At the command line, 


type 
addlib timer s 


and press Enter. Microsoft’s LIB.EXE library manager program will create 
a TABS.LIB file. The library-building process has started. Now let’s create 
a medium model library. At the command line, type 


am timer 


and press Enter. Add your medium model TIMER.OBJ object module to 
your TABM.LIB (to be created) file. At the command line, type 


addlib timer m 


and press Enter. Finally, let’s create your large model TAB C library file. Do 
you see how to do it? At the command line, type 


al timer 


and press Enter. Once your large model TIMER.OBJ object module has 
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been created you can now create your large model TAB C library. At the 
command line, type 


addlib timer 1 


and press Enter. 

If you organized your hard disk in the same way I did, your \ book 
\ lib directory will contain TABS.LIB, TABM.LIB, and TABL.LIB library 
files. 


Getting the active cursor position 


It is quite easy to get the active cursor’s position using the BIOS. Focusing 
on this book’s optimization theme, I will present three methods of getting 
the active cursor’s position. The first method uses standard C’s union 
REGS method to invoke interrupt 10h. The second method explores the 
inline assembler method and the third looks at the MASM 5.1 way. 

There are times when a programmer is faced with conflicting goals. 
Getting the active cursor’s position provides a perfect springboard for an 
ancillary discussion of conflicting goals. When do you code for small size? 
When do you code for source readability? 

The source code for function gtCur(...) is presented in FIGS. 3-1, 3-3, and 
3-4. Figure 3-1 presents the standard C version of function gtCUR(...). Figure 
3-3 the inline assembler version, and FIG. 3-4 the MASM 5.1 version. If we 
were writing a single small memory model library, using MASM 5.1 for 
optimization would probably prove the wisest method. As we are develop- 
ing code for three memory models, however, complications do arise. 

The syntax for function gtCur(...) is straightforward. The prototype for 
function gtCur(...) for the standard C version looks like this: 


void _fastcall gtCur(int *row, int *co!); 


The active cursor’s row and column are returned via the integer pointers. 
Figure 3-1,GTCURI1.C, presents the standard C version of GTCUR.C. Let’s 
compile GTCUR1.C in the small memory model using my CCS.BAT batch 
file. The CCS.BAT file looks like this: 


cl/c /Gs /AS %1.c 


Here is an explanation of CCS.BAT. 


cl Invoke Microsoft C 6.0 compile & link utility 
Ic Compile only 

/Gs Remove stack checking (for _fastcall) 

[AS Compile in small memory model 

%1.c %1 reflects name of .C file 
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3-1 The standard C version of GTCURT.C. 


SILTLTLTT LATTA AAA AAA 
// 

// gtcuri.c 

// 


// Description . 

// Gets the cursor's location on the 

// active display page 

// 

// void _fastcall gtCur(int *row,int *col); 
// 


// include files here 


#include <tproto.h> 
#include <dos.h> 


void 

_fastcall gtCur(row, column) 
int *row; 

int *colum; 


{ 
union REGS ir,or; 
char page; 


// get the video page 
ir.h.ah = Ox0f; 
int86(0x10,&ir,&or); 

page = or.h.bh; 

// get the cursor location 
ir.h.bh = page; ' 

ir.h.ah = 3; 
i1nt86(0x10,&ir,&or); 


// return to int pointers. 


*row = or.h.dh; 
*column = or.h.dl; 


Use your text editor to create CCS.BAT and at the command line, type 


ccs gtcur 


and press Enter. 


PROG7.C, shown in FIG. 3-2, tests the function gtCur‘(...). 
To compile and link PROG7.C with function gtCur‘(...)’s GTCUR.OBJ 
small memory model object module, at the command line, type 


cl /AS prog7.c \ book \ src \ gtcur.obj 
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3-2 The source code listing to PROG7.C. 


SILLTTTTLVTTATT TTT 
// 

// PROG7.C 

// 

// gtCur demonstration program 

If 

// 

SITITLTTTIT LATTA 
// include files 


#include <tproto.h> 
#include <stdio.h> 


// program begins here 
void 

main() 

{ 

int row, col: 


// Get row and column location 
// of cursor on active page 


gtCur(&row,&col )> 
// print results to screen 


printf¢"\nCursor Row = %02d", row); 
printf¢"\nCursor Column = %02d\n",col); 


} 


and press Enter. Let’s have a look at the sizes of the resultant GTCUR.OBJ 
object module’s and PROG7.EXE’s size. 


PROG7.EXE GTCUR.OBJ 
Size Size 


6137 bytes 322 bytes 


Now let’s redo GTCUR.C using Microsoft C 6.0’s inline assembler. What 
do you think will happen to the size of GTCUR.OBJ and PROG7.EXE? Let’s 
see. Figure 3-3 presents the inline assembler version of GTCUR.C. 

Doesn't the inline assembler spruce up C source? I think it does. Com- 
pile GTCUR.C using the CCS.BAT file and create a new PROG7.EXE file. 
At the command line, type 


cl /AS prog7.c \ book \ src \ gtcur.obj 


and press Enter. Let’s have a look at the sizes of the resultant GTCUR.OBJ 
object module’s and PROG7.EXE’s size. 
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3-3 The inline assembler version of GTCUR.C. 


SITTLLTTLLTTTLT ATTA T TTT TTT TT 
// 


// gtcur.c 

// 

// Description 

// Gets the cursor's location on the 

// active display page 

// 

// void _fastcall gtCur(int *row,int *col); 
// 


// include files here 

#include <tproto.h> 

void 

_fastcall gtCurCint *row, int *column) 
unsigned char r,c; 


// invoke in line assembler 


_asm 
{ 
mov AH, OfH ; get active video page 
int 10h ; to BH 
mov AH, 03h : get cursor location 
int 10h : via BIOS 
mov r,DH ; row => fr 
Mov c,DL ; col => c 
} 
*row = (int)r; // pass row to * 
*column = (int)ec; // pass column to * 


} 


PROG7.EXE GTCUR.OBJ 


Size Size 
6137 bytes 322 bytes (standard C version) 
5961 bytes 259 bytes (inline assembler version) 


Note here that the inline assembler reduced the GTCUR.OBdJ object mod- 
ule size by 63 bytes which translated approximately to a 20 percent reduc- 
tion in code size. Also, for those of you with minimal assembly experience, 
the inline assembler version of GTCUR.C looks much cleaner than the 
standard C version. 

Now let’s take a look at the MASM 5.1 version of GTCUR.ASM. In the 
assembly version you are required to know that pointers being passed 
refers to memory that resides in a FAR data segment. That is why you will 
see some conditional assembly directives in GTCUR.ASM that place 
proper values in the ES register. If you are a mid-level or advanced-level 
assembly programmer, writing multi-memory model assembly source 
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will prove easily manageable. For beginning assembler programmers, 
however, it’s another story. Figure 3-4 presents the source code listing to 
GTCUR.ASM. 

Assemble GTCUR.ASM using your AS.BAT file. Remember here that 


3-4 The source code listing to GTCUR.ASM. 


PTILIITLLTLTLTLTTA TLL T TTT TT 


s// gtcur.asm 

ttf 

:// Gets the current cursor location 
Si 

s// void gtCurCint *row,int *col); 

i// 

Hy 


: Prepare Segment ordering 
DOSSEG 
» Select memory model and language 


if mdl eq 1 
.«MODEL SMALL , C 
elseif mdl eq 2 
»MODEL MEDIUM,C 
else 
-MODEL LARGE ,C 
-FARDATA 
endi f 


: begin code segment 
.CODE 


gtCur PROC USES ES,row:PTR WORD,col:PTR WORD 
mov AH, OfH get current page 


int 10h : to BH 
mov AH,03h : get cursor loc & 
int 10h :; DH=row,DL=col 
if mdl eq 3 ; if large model 
assume ES:afardata ; ES is afardata segment 
mov AX ,afardata 
else 
mov AX ,adata : ES is adata segment 
endif : 
mov ES, AX : 
xor AX , AX ; 0 => AX 
mov AL,DH ; row val => AL 
if mdl eq 3 ; if large model 
les BX, row : ES:BX points to row int 
else 
mov BX, row 
endi f 
mov WORD PTR ES: [BX] ,AX ; move AX to int 
mov AL,DL ; col val => AL 
if mdl eq 3 ; if large model 
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3-4 Continued. 


les BX, col 7; ES:BX points to row int 
else 
Mov BX, col 
endi f 
mov WORD PTR ES: (BX],AX ; move AX to int 
ret : return 
gtCur ENDP 
END 


I’ve suggested that all assembly modules be declared using _cdecl, which 
tells Microsoft C 6.0 that parameters will be passed on the stack. PROG7.C 
(presented in FIG. 3-2) includes TPROTO.H. TPROTO.H declares function 
gtCur(...) as _fastcall (there’s a big hint here which version of function gtCur(...) 
is finally selected for the TAB libraries!). Consequently we need an updated 
version of PROG7.C to test the assembly-generated function gtCur‘(...). Figure 
3-5 presents the source code listing to PROG8.C, the updated version of 
PROG7.C. 


3-5 The source code listing to PROG8.C. 


VILTLIITTATT TTT TTT TTA ATT 
// 

// PROG8.C 

// 

// gtCur demonstration program 

If 

// 
VITTLTTATTL TTL T ATTA TTT 
// include files 

#include <stdio.h> 

// program begins here 

void 

main() 

{ 

int row, col; 


// Get row and column location 
// of cursor on active page 


gtCur(&row, &col ); 
// print results to screen 


printf("\nCursor Row = %02d",row); 
printf¢"\nCursor Column = 402d\n",col); 


} 
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Compile and link PROG8.C with the assembly version of GTCUR 
.OBJ. At the command line, type 


cl /AS prog8.c \ book \ asm \ gtcur.ob| 


and press Enter. Let’s compare the final results of the by-now infamous 
GTCUR.OBJ challenge. 


PROG7.EXE GTCUR.OBJ 


Size Size 

6137 bytes 322 bytes (standard C version) 
5961 bytes 259 bytes (inline assembler version) 
5961 bytes 163 bytes (assembly version) 


The size of the assembly GTCUR.OBJ module is 163 bytes. This rep- 
resents a 159 bytes, or an approximate 50 percent, savings over the code 
size of the standard C version of GTCUR.OBJ. Also notice that even 
though the assembly GTCUR.OBJ is smaller than the inline assembler 
GTCUR.OBJ the resultant PROG7.EXE and PROG8.EXE are the same 
size. Do you see why that is so? I suspect that it has something to do with 
_fastcall with its attendant stack-check removal. 

Let’s have a look at the object disassemblies of the inline assembler 
version of GTCUR.OBJ and the MASM 5.1 assembler version of GTCUR 
-OBJ. Which code looks better to you? Figure 3-6 presents the inline 
assembler disassembly of GTCUR.OBJ and FIG. 3-7 presents the MASM 
o.1 disassembly of GTCUR.OBu. 


3-6 The inline-assembler-generated GTCUR.OBJ disassembly. 


‘Module: gtcur.c 


Group: 'DGROUP' CONST, BSS, DATA 


Segment: '_TEXT' WORD 0000002c bytes 


0000 55 agtCur push bp 

0001 8b ec mov bp, sp 
0003 83 ec 04 sub sp,0004H 
0006 50 push ax 

0007 53 push bx 

0008 b4 Of mov ah ,OfH 
000a cd 10 int 10H 

000c b4 03 mov ah , 03H 
000e cd 10 int 10H 

0010 88 76 fe mov -2H [bp] ,dh 
0013 88 56 fc mov -4H [bp] , dl 
0016 8a 46 fe mov al, -2H{bp] 
0019 2a e4 sub ah, ah 
00ib 8b 5e f8 mov bx, -8H [bp] 
OOie 89 07 mov [bx] , ax 
0020 8a 46 fc mov al, -4H [bp] 
0023 8b 5e fa mov bx, -6H [bp] 
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3-6 Continued. 


0026 89 07 mov (bx] , ax 
0028 8b e5 mov sp, bp 
002a 5d pop 

002b c3 ret 


No disassembly errors 


3-7 The MASM 5.1-generated disassembly of GTCUR.OBu. 


Module: gtcur.ASM 
Group: 'DGROUP' DATA 


Segment: '_TEXT' WORD 00000026 bytes 


0000 55 _gtCur push bp 

0001 8b ec mov bp, sp 

0003 06 push es 

0004 bé4 Of | mov ah, OfH 
0006 cd 10 int 10H 

0008 b4 03 mov ah, 03H 
000a cd 10 int 10H 

000c b8 00 00 mov ax , DGROUP 
OO0OOf 8e c0 mov es , ax 

0011 33 c0 xor ax, ax 

0013 8a c6 mov al,dh 

0015 8b 5e 04 mov bx, +4H [bp] 
0018 26 89 07 mov es: [bx] , ax 
OO0tb 8a c2 mov al,dl 

001d 8b 5e 06 mov bx, +6H [bp] 
0020 26 89 07 mov es: [bx] , ax 
0023 07 pop es 

0024 5d pop bp 

0025 c3 ret 


No disassembly errors 
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Do you think the inline assembler version GTCUR.C is easier to code 
and maintain than the MASM 5.1 assembler version GTCUR.ASM? I do. 
The C compiler takes care of NEAR and FAR code and data segment needs 
in a smart fashion. For the most part, the C programmer doesn’t really 
need to know about whether a declared INT is ina NEAR or FAR data seg- 
ment. In assembly, the programmer must demonstrate greater awareness 
and knowledge. 

So which GTCUR.OBJ module should we place in our TAB libraries? I 
choose the middle road and say let’s use the inline assembler version of 
GTCUR.OBU. It’s better than the standard C version and easier to code and 
maintain than the pure assembly version. 

Following the same procedure you used when adding TIMER.OBJ to 
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your TABS.LIB, TABM.LIB, and TABL.LIB files, add the inline assembler 
version of GTCUR.C (presented in FIG. 3-3) to your TAB libraries. 


Moving the active cursor 


Function mvCur(...) moves the active cursor, which is accomplished via a 
BIOS interrupt 10h function. MVCUR.ASM, shown in FIG. 3-8, is the source 
code to the mvCur(...) function. Assemble MVCUR.ASM in each of the three 
memory models supported in this book and add the appropriate object 
modules to your TABx libraries. Do you know how? If not, reread the *“‘Using 
the LIB.EXE library manager program”’ section in this chapter for more 
information on the multi-memory model libraries construction process. 
Note one big difference between what is required in function mvCur(...) 
and what is required in function gtCur(...). Function mvCur(...) simply re- 
ceives parameters via the stack and can easily be handled in a MASM 5.1 


3-8 The source code listing to MVCUR.ASM. 


HL 
“1 mvcur.asm 

Sl 

:// void mvCur(Cint row, int col) 


' 


Sf 


: declare segment ordering 
» and Model 


DOSSEG 
IF mdl eq 1 

.MODEL SMALL,C 
ELSEIF mdl eq 2 

.MODEL MEDIUM,C 
ELSE 

-MODEL LARGE ,C 
ENDIF 


: begin code segment here 
- CODE 


mvCur PROC row:BYTE,column:BYTE 
mov AH,OFh ; get active page 
int 10h : into BH 
mov DH, row ; set cursor row 
mov DL,column :; set cursor column 
i 
a 
g 


xor AL, AL 0 => AL 
mov AH,2 ; move cursor via BIOS 
int 10H > int 10 hex 
ret 
mvCur ENDP 
END 
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format, whereas function gtCur(...) receives pointers to integers parameters 
via the stack. Pointers contain 16-bit offset values when exploring NEAR 
data segments. Pointers, however, contain a 16-bit segment and a 16-bit off- 
set from that segment’s start when referring to a FAR data segment. MASM 
5.1’s PROC and USES directives easily take care of the multi-memory model 
stack frame referencing required to grab parameters from the stack. 

In my opinion, writing function mvCur(...) is just as easily accomplished 
using MASM 5.1 as using Microsoft C 6.0’s inline assembler. Do you see how 
to write function mvCur(...) using the inline assembler? If not, I suggest that 
you stop reading and try to write function mvCur(...) using the inline assem- 
bler. Struggling through this simple exercise will prove very useful in deep- 
ening your knowledge of the relationship between MASM 5.1 assembly 
coding and Microsoft C 6.0 assembly coding. 

Once you have added function mvCur(...) to your TABS.LIB, TABM.LIB, 
and TABL.LIB library files it’s time to check their operation. PROGY.C, 
shown in FIG. 3-9, tests the functioning of function mvCur(...). 


3-9 The source code listing to PROGY.C. 


VSILELITITITTTLTTI LATTA TTA TT 
// 

// PROG9.C 

// 

// mvCur demonstration program 

// 

// 
UU 
// include files 


#include <stdio.h> 
#include <tproto.h> 


// program begins here 

void 

main ) 

{ 

int row, col; 

// row loop to print message 

for(row=0,col=0; row<24; row++) 
// adjust the cursor location 
mvCur (row, col++):; 


// print the message to the screen 


printf("Hello Chuck!"); 
> 
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To facilitate the checking of every function and program in the small, 
medium, and large memory models I use three compile-and-link batch files. 
To compile and link a program in the small memory model I use the follow- 
ing batch file named CSMALL.BAT. 


cl /AS %1.c \ book \ lib \ tabs.lib 


To compile and link a program in the medium memory model I use the 
following batch file named CMEDIUM.BAT. 


cl /AM %1.c \ book \ lib \ taom.lib 


To compile and link a program in the large memory model I use the fol- 
lowing batch file named CLARGE.BAT. 


cl /AL %1.c \ book \ lib \ tabl.lib 


Here’s the process I’d use to test function mvCur(...). At the command 
line, type 


csmall prog9 


and press Enter. After the PROGY.C compiles and links, at the command 
line, type 


prog9 


and press Enter. Note how PROGY.EXE executes. Assuming it runs as 
expected, at the command line, type 


Cmedium prog9 


and press Enter. Run the medium model version of PROGY.EXE. It should 
perform in an identical fashion to the small memory model version of 
PROGY.EXE. At the command line, type 


clarge prog9 


and press Enter. Run the medium model version of PROGY.EXE. It should 
perform in an identical fashion to the small memory model version of 
PROGY.EXE. At the command line, type 


Moving the active cursor relative to current position 


Function rmvCur(...) moves the cursor relative to the current cursor’s posi- 
tion. First function rmvCur(...) uses function gtCur(...) to get the current row 
and column location of the active cursor. Once the active cursor’s position is 
ascertained, the row offset parameter is passed to function rmvCur(...) and 
added to the current row location; the column offset parameter is added to 
the current column location. The resultant newly calculated cursor row and 
column locations will be used by function mvCur(...) to alter the position of 
the active cursor. 
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Figure 3-10 presents the source code listing to RMVCUR.C. Examine 
the listing in FIG. 3-10. See how easy it is to use existing functions to con- 
struct more complex functions. This theme will be used throughout this 
book and is used in all of my library-building efforts. Creating reusable 
function object modules is a great timesaver in program and library devel- 
opment. 


3-10 The source code listing to RMVCUR.C. 


SULTLTTTLTTTTTTTTTT TTT TTT 
// 


// rmveur.c 

// 

// Description: 

// Relative move of the cursor 

// starting at the current location 
// 


// include files here 
#include <tproto.h> 


void 
_fastcall rmvCur(int r_offset,int c_offset) 


int row,column; 
// get current cursor location 
gtCur(&row, &coiumn); 


// adjust row and column according to 
// row and column offset values 


row += r_offset; 
column += c_offset; 


// move the cursor to the new row and 
// colum location 


mvCur(row,column); 


} 


Do you see why it is of the utmost importance to check that every 
function piaced in a library performs properly in the small, medium, and 
large memory models? Later in this book there are functions that use 
other functions that use other functions, etc. to operate as billed. If one of 
the foundation functions failed to operate properly, you would have to 
spend needless time debugging. Don’t cheat for time here. Being extra 
careful when testing library functions during development pays off in the 
long run. I know this from painful experiences. 
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Compile RMVCUR.C in the three memory models supported by this 
book and add the resultant RMVCUR.OBJ object modules to your 
TABS.LIB, TABM.LIB, and TABL.LIB files. 

PROG10.C, shown in FIG. 3-11, tests function rmvCur(...). Compile and 
link PROG10.C using CSMALL.BAT, CMEDIUM.BAT, and CLARGE.BAT. 
Once you’re sure that function rmvCur(...) is behaving properly in the small, 
medium, and large memory models, then you may move on to saving and 
restoring the active cursor location. 


3-11. The source code listing to PROG10.C. 


VILLIVTITLTTLVLLTTT TTT TTT 
// 

// PROG10.C 

// 

// rmvCur demonstration program 

// 

// 
VILIVTLLLTLTLAL LTD T LATTA AT 
// include files 


#include <stdio.h> 
#include <tproto.h> 


// program begins here 
void 

main() 

{ 

int counter; 


// set cursor location to row 0 
// and colum 0 


mvCur(0,0); 
// start print message loop 
for(counter=0; ;counter++) 

// print message 

printf¢"Hello Chuck!"); 

// check to see if last row reached 


if(counter==23) // yes => break loop 
break; 


// adjust cursor relative to current location 


rmvCur(1,-11); 
} | 
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Saving and restoring active cursor location 


In every library I’ve ever developed I’ve always tried to ease the burden on 
one of my subpersonalities that’s an applications programmer. There are 
many, many times when I’ve been required to save the current active cursor 
location, begin a new screen operation, and then return the cursor to its 
original location. Sure, I could use functions gtCur(..) and mvCur(...) to accom- 
plish that task, but there’s a better way. This way costs a few bytes, but 
saves seconds when coding. Alas, another tradeoff. 

Function sCloc(...) saves the active cursor’s location, and function rCloc(...) 
restores the cursor to the previously saved cursor location. Figures 3-12 
and 3-13 present the source code listing to SCLOC.C and RCLOC.C, respec- 
tively. Compile SCLOC.C and RCLOC.C and add the resultant SCLOC.OBJ 
and RCLOC.OBJ object modules to your TABS.LIB, TABM.LIB, and 
TABL.LIB files. 


3-12 The source code listing to SCLOC.C. 


VILILITILITTT TTT 
// 

// scloc.c 

// 

// Description: 

// Save the current cursor location 
// 

// include files here 

#include <tproto.h> 

// global structure 

CUR_LOCATION c_loc; 

void 

_fastcall sCloc() 

{ 

unsigned char r,c; 


// begin inline assembly 


* move column 


asm 
{ 
mov AH,OFh s get current video page to 
int 10h : BH register 
mov AH, 03h s get cursor info function 
int 10h ; VIA BIOS 
mov r,DH ; move row 
a 


mov c,DL 


// save existing values to structure 
c_loc.row = (int)r; 

c_loc.colum = (int)c; 

} 
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3-13 The source code listing to RCLOC.C. 


SILTLLTITTTLT ATLA TTT 
// scloc.c 

// 

// Description: 


// Restores the current cursor location 
If 


// include files here 
#include <tproto.h> 

// global structure 
extern CUR_LOCATION c_loc; 
void 

ania rCloc() 


mvCur(c_loc.row,c_loc.column); 
} 


Figure 3-14 presents the source code listing to PROG11.C, shown in FIG. 
3-14, tests the functions sCloc(...) and rCloc(...). Compile the link PROG11.C 
and test its operation in the small, medium, and large memory models. 


3-14 The source code listing to PROG11.C. 


VITLVTTLTTLTLT TPA AT 
If 

// PROG11.C 

// 

// sCloc and rCloc demonstration program 
If 

// 

VILTLTTTLATTT TATA ATT 
// include files 


#include <stdio.h> 
#include <tproto.h> 


// program begins here 

void 

main() 

{ 

int counter; 

// save the current cursor location 


sCloc(); 
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3-14 Continued. 


// set cursor location to row 0 
// and column 0 


mvCur (0,0); 
// start print message loop 


for(counter=0; ;counter++) 
{ 
// print message 


printf("Hello Chuck!"); 
// check to see if last row reached 


if(counter==23) // yes => break loop 
break; 


// adjust cursor relative to current location 


rmvCur(1,-11); 
} 


// restore the previously saved cursor location 
rCloc(); 


} 


Turning the active cursor on and off 


There are times when an application programmer will want to turn the 
cursor off (make it invisible) for certain times during program execution 
and other times when he/she will want to have the active cursor on (make 
it visible). Functions onCur(...) and offCur(...) take care of cursor visibility 
handling. These two C functions call two internal assembly functions that 
actually take care of the BIOS invocations. Figure 3-15 presents the source 
code listing to ONCUR.C and FIG. 3-16 presents the source code listing to 
OFFCUR.C. Compile ONCUR.C and OFFCUR.C and add the resultant 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 

Before testing functions onCur(...) and offCur(...), the two internal cursor 
visibility assembly bindings must be added to your TAB libraries. The as- 
sembly bindings are presented in FIGS. 3-17 and 3-18, which are S_SHAPE 
-ASM and G_SHAPE.ASM, respectively. 

Assemble S_SHAPE.ASM and G_SHAPE.ASM and add the resultant 
S_SHAPE.OBJ and G_SHAPE.OBJ object modules to your TABS.LIB, 
TABM.LIB, and TABL.LIB files. 

Figure 3-19 presents the source code listing to PROG12.C. This pro- 
gram tests whether functions onCur(...) and offCur(...) work as intended. 
Compile and link PROGI12.C and test that PROG12.EXE works as in- 
tended in the small, medium, and large memory models. 
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3-15 The source code listing to ONCUR.C. 


SILILLLTLTTTTTT DTT TTT TT 
// 


// oncur.c 

// 

// Description: 

// Turns the cursor on (visible) 
// 


// include files here 
#include <tproto.h> 


void 
fastcall onCur() 


{ 
s_shape(g_shape() & ~0x2000); 
} 


3-16 The source code listing to OFFCUR.C. 


SITILITITATTTAT LTT LTT TTT TTT TT 
// 


// offcur.c 

// 

// Description: 

// Turns the cursor off (invisible) 
// 


// include files here 


void 
fastcall offCur() 


_shape(g_shape() | 0x2000); 


3-17 The source code listing to S_SHAPE.ASM. 


SLLLLTLLLILTTAT TTT TTT TAT T TT T 
i// 

:// s_shape.asm 

i// 

3// Description: 

:// Internal library routine called from 
:// onCur and offCur functions. 

i// 


:// declare segment ordering and memory model 
DOSSEG 


IF mdl eq 1 
.MODEL SMALL,C 
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3-17 Continued. 


ELSEIF mdl eq 2 
.MODEL MEDIUM, C 
ELSE 
.MODEL LARGE,C 
ENDIF 


:// begin code segment 
~ CODE 


s_shape PROC shape:WORD 


mov CX , shape ; cur shape -> CX 


a 
mov AH, 1 ; set chape func 
int 10h : video bios 
ret 
s_ shape ENDP 
END 


3-18 The source code listing to G_SHAPE.ASM. 


PLLLTLLLLTITTLTTT LTT LATTA A ST 
i// 

;// g_shape.asm 

Sl 

;// Description: 

://_ Internal library routine called from 
s// onCur and offCur functions. 

s/f 


3:// declare segment ordering and memory model 
DOSSEG 


IF mdl eq 1 

.MODEL SMALL,C 
ELSEIF mdl eq 2 

.MODEL MEDIUM, C 
ELSE 

.MODEL LARGE,C 
ENDIF 


:// begin code segment 


. CODE 

g_shape PROC 
mov AH,3  ; GET_CURS 
int 10h » video bios 
mov AX,CX ; shape -> AX 
ret 

g_shape ENDP 
END 
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3-19 The source code listing to PROG12.C. 
UU 
// 

// progi2.c 

// 

// Description: 

// Demonstration of onCur and offCur 

// functions. 

// 

// include files here 


#include <stdio.h> 
#include <tproto.h> 


void main(void); 

void 

main() 

{ 

// turn the cursor off 

of fCur(); 

// print message 

printf("The cursor is now turned off."); 
// wait for key press 

getchar(); 

// print message and turn cursor on 
printf("The cursor is now turned on."); 


// turn on the cursor 


onCur(); 
} 


Changing the size of the active cursor 


There are times when the applications programmer will want to have the 
cursor change sizes for different operations. Three functions facilitate 
changing the active cursor’s size, saving the active cursor size, and restor- 
ing the active cursor’s size. SIZECUR.C, shown in FIG. 3-20, contains the 
code to function sizeCur(...), which changes the cursor’s size. SSIZECUR.C, 
shown in FIG. 3-21, holds the code to two functions: Function ssizeCur(...) 
saves the active cursor’s size and function rsizeCur(...) restores the previously 
saved cursor size. Compile SIZECUR.C and SSIZECUR.C and add the resul- 
tant SIZECUR.OBJ and SSIZECUR.OBJ object modules to your TABS.LIB, 


TABM.LIB, and TABL.LIB files. 
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3-20 The source code listing to SIZECUR.C. 


SILTLITTLTTTTT TLL TTT TTT 
// 


// sizecur.c 

// 

// Description: 

// Set the cursor size 
// 


// include files here 


#include <tproto.h> 


void 

_fastcall sizeCur(int start, int end) 

{ 

// invoke inline assembler 

_asm 
{ 
mov AX, end 3; cursor end line to AX 
mov CL,AL ; xferred to CL 
mov AX,start ; cursor start line to AX 
mov CH, AL ; Xferred to CH 
mov AH, 1 : 1 => AH 
xor AL, AL 3 0 => AL 
int 10h ; change size VIA BIOS int 10h 
> 

> 


3-21 The source code listing to SSIZECUR.C. 


CULL 
// 


// ssizecur.c 

// 

// Description: 

// Save cursor size 
If 


// include files here 
#include <tproto.h> 
// global int 
static int csize; 
void 
_fastcall ssizeCur() 
il invoke inline assembler 
_asm 
{ 


mov AH, OFh ; get active video page 
int 10h 3; to BH 


102 Active cursor-management functions 


3-21 Continued. 


mov AH,O3h » cur info function 
int 10h 3 cur size => CX 
mov csize,CX ; save cursor size 
> 


) 


LILILLLLTITTT LITT TTA 
// 

// Description: 

// Restore cursor size 


// 

void 

_fastcall rsizeCur() 

{ 

// invoke inline assembler 

_asm 
{ 
mov AH, Oth s set cur size 
mov CX,csize ; cursor size => CX 
int 10h * restore cursor size via BIOS 
} 

> 


PROG13.C, shown in FIG. 3-22, shows how to change the active cur- 
sor’s size. The syntax for functions sizeCur(...), ssizeCur(...), and rsizeCur(...) 
can be found in this program. Compile and link PROG13.C in the small, 
medium, and large memory models and check that PROG13.EXE func- 
tions as intended. 


3-22 The source code listing to PROG13.C. 


VILTVTTLLTTTLTT TTT LTT TTT TTT TTT 
// 


// progi3.c 

// 

// Description: 

// Demonstration of sizeCur, ssizeCur,rsizeCur 
// functions. 

// 


// include files here 


#include <stdio.h> 
#include <tproto.h> 


void main(void); 
void 


main() 
{ 
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3-22 Continued. 

// save cursor size 

rsizeCur(); 

// set new cursor size to block 
sizeCur(0,12); 

// print message 

printf("The cursor is a flashing block."); 
// wait for key press 

getchar(); 

// restore the cursor size 

printf("The previously saved cursor size is restored."); 
// restore cursor size 

rsizeCur(); 


) 


Summary 


Library management is nicely handled by Microsoft’s LIB.EXE library 
manager program. LIB.EXE permits you to add object modules to li- 
braries, delete object modules from libraries, and replace object modules 
in libraries. One other feature of the LIB.EXE program is that it permits 
you to create a listing of all the object modules and functions contained in 
your library. Let’s create a listing of your small memory model TABS.LIB 
file by, at the command line, typing 


lib tabs,tabs.Ist 


and pressing Enter. You will now find a file named TABS.LST on your disk. 
Figure 3-23 presents the TABS.LST listing. 

You can clearly see which library object modules contain which func- 
tions and can tell if the functions are using the _fastcall convention (preced- 
ing @) or the _cdecl (preceding _) convention. I will present library listings 
at the end of every chapter so you may see how your optimized Microsoft C 
6.0 library grows. 

In summary, the multi-method library building process I suggest in 
this book is the following: 


1. Create a small model object module 


2. Add it to the small memory model library 
3. Create a medium model object module 
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3-23 The TABS.LIB library listing. 


@ssizeCur...cecece 
_get_jiffhour..... 


_get_jiffy........ i 
_g_ Shape.......... he 


timer 
_addi jiff 
_get_ljiffy 
_remove_timer 


gtcur 
agtCur 


rmvcur 
armvCur 


scloc 
asCloc 


rcloc 
arCloc 


oncur 
aonCur 


s_shape 
_s_shape 


g_shape 
_9_shape 


of fcur 
dof fCur 


sizecur 
asizeCur 


ssizecur 
arsizeCur 


ssizecur 
timer 


Offset: O0000010H Code and data 


Offset: OOOO00b0H Code and data 
_get_jiffhour _get_jiffmin 
_initialize_timer 


_reset_timer _Start_timer 


Offset: O0000390H Code and data 


Offset: 000004a0H Code and data 


Offset: 000005e0H Code and data 


Offset: 00000710H Code and data 


Offset: 00000830H Code and data 


Offset: O00000950H Code and data 


Offset: OOOOO09fOH Code and data 


Offset: 00000a80H Code and data 


Offset: O00000ba0H Code and data 


Offset: O0000cb0H 
assizeCur 


Code and data 


_addijiff...... 
_get_jiffmin... 
_get_ljiffy.... 
_initialize_timer..timer 
_newtimer...... 
_reset_timer... 
_stop _timer.... 


Add it to the medium memory model library 
Create a large model object module 
Add it to the large memory model library 
Test the function in the small, medium, and large memory models 


».-ssizecur 
.~.esizecur 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


: eOH 


_get_jiffy 
_newtimer 
_stop_timer 

2cH 

30H 

26H 

10H 

eH 

cH 

7H 

eH 


1aH 


26H 


Summary 
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4 


Foundation screen-hanadling 
routines 


Starting with this chapter your library-building pace will dramatically 
increase. If the speed of function presentation in this chapter leaves you 
gasping for air, you can get relief by looking at Chapter 3, Screen-handling 
routines, and Chapter 5, More screen routines, in Building C Libraries: 
Windows, Menus, and User Interfaces (Windcrest Book No. 3418). 

All the video routines presented in this chapter use the direct video 
access method of writing to the screen and reading data from the screen. 
This method is the fastest and creates the most professional-looking 
results. Briefly, the video display is mapped to an area of memory which 
I'll refer to as video RAM. The display information is held in a 16-bit word. 
The LSB, Least Significant Byte, of the 16-bit word holds the ASCII char- 
acter value and the MSB, Most Significant Byte, holds the video attribute 
information. The video attribute controls the displayed character’s fore- 
ground color, background color, foreground intensity, and foreground 
blink. 

In this book, the 16-bit video word is defined as a token. In other 
words, a token is a 16-bit value that is comprised of an 8-bit character 
value and an 8-bit attribute value. Functions are presented in this chapter 
to write tokens to the screen and read tokens from the screen. There is also 
a function that makes a token from a designated character value and 
attribute value. | 

In this chapter you'll also learn how to write strings to the screen, ver- 
tical bars, horizontal bars, change the displayed text attributes without 
altering text, and finally to save and restore the screen image. 
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Making screen tokens and attributes 


Function mkToken(...) receives an 8-bit character, an 8-bit attribute and 
returns a 16-bit token. MKTOKEN.ASM, shown in FIG. 4-1, is the assembly 
source code to this function. Assemble MKTOKEN.ASM and add the resul- 
tant MKTOKEN.OBJ object modules to your TABS.LIB, TABM.LIB, and 
TABL.LIB files. The mkToker(...) function is demonstrated in PROGI5.C, 
shown later in this chapter in FIG. 4-7. 


4-1 The source code listing to MKTOKEN.ASM. 


PIVLTLTTTTTLTT TTT TAT TT LTT TAT T 


“// mktoken.asm 

H Description: 

s// Takes an the LSB of two 16 bit ints 

:// and combines then into one 16 bit int. 

s// Useful in combining char and attributes 

s// for one screen token. 

fl 

3//_ token = mkToken(int char_value, int attribute_value) 
iff 


: declare segment ordering 
s and Model 


DOSSEG 


if mdl eq 1 

-MODEL SMALL,C 
elseif mdl eq 2 

~MODEL MEDIUM,C 
else 

-MODEL LARGE ,C 
endif 


: begin code segment here 


- CODE 

mkToken PROC schar:BYTE,sattr:BYTE 
mov AL,schar ; character to LSB 
mov AH,sattr ; attribute to MSB 
ret 


mkToken ENDP 


END 


Function mkAttr(...) receives the foreground color value, the background 
color value, the foreground intensity value, and the foreground blink val- 
ues and returns an 8-bit attribute. MKATTR.ASM, shown in FIG. 4-2, is 
the source code to the mkAtir(...) function. Assemble MKATTR.ASM and add 
the resultant MKATTR.OBJ object modules to your TABS.LIB, TABM.LIB, 
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4-2 The source code listing to MKATTR.ASM. 


SLILITLLTTTTLTTLTTT LTT TST TTT 


:// mkattr.asm 


i// 

:// Description: Makes screen attribute 

:// where 

3s// attribute = mkAttr(fc,bc, intensity,bl ink); 
i// 


3// fe = int foreground color 
:// be = int background color 
:// intensity = int intensity 
s// blink = int blink on off 


» declare segment ordering 
3 and Model 


DOSSEG 


if mdl eq 1 

»-MODEL SMALL,C 
elseif mdl eq 2 

-MODEL MEDIUM,C 
else 

eMODEL LARGE,C 
endif 


; begin code segment here 


. CODE 
mkAttr PROC fore_c:WORD,back_c:WORD, inten_t:WORD,bl ink_t:WORD 
xor AX , AX 3 0 -> AX 
mov AX,back_c  ; back ground color to AL 
mov CL,4 ; prep shift 4 left 
shl AX, CL s means AL * 16 
or AX,fore_c ; or foreground color 
or AX,inten_t ; or intensity 
or AX,blink_t ; or blink 
ret 
mkAttr ENDP 
END 


and TABL.LIB files. The color defines, intensity defines, and blink defines 
are presented in TSTRUCT.H (FIG. 2-2). The use of function mkAttr(...) is 
demonstrated in PROGI5.C (FIG. 4-7). 


Clearing the visible screen 


Function scrnClir(...) uses the video BIOS scroll function to clear the visible 
screen. Look at FIG. 4-3, which is SCRNCLR.ASM, the source code to this 
function. Can you see how to modify SCRNCLR.ASM so it could receive a 
screen attribute parameter? Allowing scrnClir(...) to control the screen attrib- 
ute is a nice frill to add to this function. Assemble SCRNCLR.ASM and add 
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4-3. The source code listing to SCRNCLR.ASM. 


PLLLLLLTTTATTTTN TTL ATA ATT 
3// sernelr.asm 

i// 

:// Description; 

:;// Clears the screen with the 

:// normal attribute 

i// 


: declare segment ordering 
* and Model 


DOSSEG 
if mdl eq 1 

-MODEL SMALL,C 
elseif mdl eq 2 

-MODEL MEDIUM,C 
else 

-MODEL LARGE,C 
endi f 


: begin code segment here 
. CODE 


scrnClr PROC 


xor AX,AX ; lines to scroll 0 


a 
xor CX,CX ; UL row & UL colum to 0 
mov DH,24 ; LR row to 24 
mov DL,79 ; LR colum to 70 
mov BH,7 ; fore->white, back->black 
Mov AH,6 ; vid scroll up function 
int 10h 3; bios do it 
mov AH,OFh ; get video page to BH 
int 10h :; invoke BIOS 
mov DX,O ; row & col to 0 
mov AH,2 ; reset cursor position 
int 10h ; invoke BIOS to move cursor 
ret 


scrnClr ENDP 


END 


the SCRNCLR.OBJ object modules to your TABS.LIB, TABM.LIB, and 
TABL.LIB files. 

PROG14.C, shown in FIG. 4-4, demonstrates function scrnClr(...). Com- 
pile PROG14.C and link the resultant PROG14.OBJ object module with 
your TABS.LIB file. Run PROG14.EXE and your screen will clear and the 
cursor will move to the top left portion of the screen. 


Initializing direct video access routines 


This foundation function, vidinit(...), must be called before any direct video 
access routines. Function vidinit(...) determines the start address of video 
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4-4 The source code listing to PROG14.C. 


SUTTLTTTLTTTTATT TTT ATT TT 
// 


// progi4.c 

If 

// Description: 

// Demonstration of scrnClr function. 
If 


// include files here 

#include <tproto.h> 

void main(void); 

void 

main() 

{ 

// clear the screen with the normal (7) 
// attribute and move the cursor to row 0 
// column 0 

sernCtr(); 


} 


RAM and places that segment value in a global variable. If this global vari- 
able is not properly set then unnatural and unspeakable things will hap- 
pen to your computer. Be forewarned, function vidinit(.... must be called 
before all direct video memory access routines presented in this book. A 
good habit to get into would be to place function vidinit(...) as the first func- 


tion called in function main(...). 


VIDINIT.ASM, shown in FIG. 4-5, is the source code to the vidinit(...) func- 
tion. Assemble VIDINIT.ASM and add the resultant object modules to your 
TABS.LIB, TABM.LIB, and TABL.LIB files. PROGI5.C, FIG. 4-7, demon- 


strates the use of function vidinit(...). 


4-5 The source code listing to VIDINIT.ASM. 
DLL 


s// vidinit.asm 

Si 

s// Initialize video structures 
i// 


DOSSEG 
if mdl eq 1 
-MODEL SMALL,C 
elseif mdl eq 2 
-MODEL MEDIUM,C 
else 
-MODEL LARGE ,C 
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endif 


: video structure 


v STRUC 3 v STRUCT MUST MATCH 
mode DW 0 :; data struct of VIDEO 
wid DW 0 3; struct in tstruct.h 
pag DW 0 
scrn DW 0,0 

v ENDS 


; declare as public for direct video access routines 
PUBLIC SCRNSEG,crt,VID_PORT,SPARKLE_FLAG 
-DATA 


SPARKLE_FLAG DW 0 
VID_PORT DW 0 


No sparkle fix default 
video controller status port 


: 
’ 
SCRNSEG DW 0 2: int holds scrn seg 
crt DW 0,0 ; pointer to VIDEO struct 
vid v <> s structure declaration 
. CODE 


vidInit PROC 
; move offset of pointer to video structure to global 


mov crt+2,DS 
mov crt,offset vid ; addr of struct -> crt 


s get video mode -> int 10h func 15 


xor CX, CX 3; CX -> 0 

mov AH, 15 ; BIOS get mode 

int 10h ; BIOS int 

mov CL,AL ; mode -> vid.mode 

mov [vid.mode] , CX : store in vid structure 
mov CL,AH ; row wid -> vid.width 
mov [vid.wid] ,CX ; store in vid structure 
mov CL,BH ; page -> vid.pag 

mov [vid. pag] , CX ; store in vid structure 


: prep structure for mono or color 


cmp AL,7 is mono? 
je i1smono yes ->jump 
mov AX, CX video page to AX 


a 
mov CL,8 ; prep left shift 
shl AX,CL ; page offset in AX 
add AX, OB800h : add Page 0 start 
mov VID_PORT,O3dah =; stat color controller port 
mov SCRNSEG, AX : color scrn seg 
mov [vid.scrn],00h ; far * offset 
mov [vid.scrn+2] ,AX ; far * seg 
jmp videxit : color all done 
ismono: ; mono has only one page 
mov VID_PORT,O3BAh ; stat mono controller port 
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4-5 Continued. 


mov SCRNSEG,OBO000h =; mono scrn seg 

mov [vid.scrn] ,00h ; far * offset 

mov [vid.scrn+2] ,OB000h ; far * seg 
videxit: ; all done 

ret 


vidiInit ENDP 
END 


Writing a character and attribute to the screen 


Function vdChar(...) places a designated character and attribute to the 
screen at a specified row and column location. The character and attribute 
are sent in 16-bit token form. VDCHAR.ASM, shown in FIG. 4-6, is the 
source code to the vdChar(...) function. Assemble VDCHAR.ASM and add 
the resultant VDCHAR.OBJ object modules to your TABS.LIB, TABM.LIB, 


and TABL.LIB files. 


4-6 The source code listing to VDCHAR.ASM. 


SLILTTTTLTTTTTTT LTT AAT TT 
i// 

s// vdchar.asm 

i// 

:// Description: 

s// Writes a screen token to the screen 
s// at row and column location 

// 

:// void vdChar(row, col, token) 

*// int row row of string write 

:// int col column of string write 
s// int token char + 256*attr 


DOSSEG 
if mdl eq 1 

«MODEL SMALL,C 
elseif mdl eq 2 

«MODEL MEDIUM,C 
else 

-MODEL LARGE ,C 
endi f 


EXTRN SCRNSEG:WORD 
: beginning of code segment 
-CODE 


vdChar PROC USES DI SI,prow:BYTE,pcol :BYTE, ptoken: WORD 
mov CX, SCRNSEG ; screen segment to CX 
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4-6 Continued. 
- & then to ES 


a 
xor AX, AX : 0 -> AX 
mov AL, prow ; Tow -> AL 
mov BL, 160 : 80 chars wide * 2 
mul BL * row * scrn width -> AX 
mov CL,pcol ; column to CL 
xor CH,CH ; 0 -> CH 
shl Cx, 1 3; col * 2 
add AX , CX : column + (row * scrn width) 
mov DI,AX ; point DI to scrn 
mov AX, ptoken ; token to AX 
Stosw ; AX -> screen 
ret 
vdChar ENDP 
END 


The program PROG15.C, shown in FIG. 4-7 demonstrates the use of 
functions mkAttr(...), mkToken(...), vidinit(...), and vdChar(...). Examine the source 
presented in FIG. 4-7 to see the syntax of all the presented functions. Com- 
pile PROG15.C and link the resultant PROG15.OBJ object module to your 
TABS.LIB file. Run PROG15.EXE and see your screen turn red with black 
periods. Note how quickly direct video access changes 2000 character 
bytes and 2000 attribute bytes in screen RAM. 


4-7 The source code listing to PROG15.C. 
SILTITTTTTL TITTLE TT 
// 

// progi5.c 

// 

// Description: 

// Demonstration of mkToken,mkAttr,vidiInit, vdChar 
If 

// include files here 

#include <tproto.h> 

void main(void); 

void 

main() 

{ 

int row,column; 

// initialize the video 

vidiInit(); 

// turn off the cursor 


of fCur(); 


// fill the screen with periods 
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4-7 Continued. 


for(row=0; row<25;> rowt+) 
for(column=0; column<80; column++) 
vdChar(row,column,mkToken('.',mkAttr(BLACK, 
RED, 
OFF_INTENSITY, 
OFF_BLINK))); 


// wait for key press 
getchar(); 


// clear the screen with the normal (7) 
// attribute and move the cursor to row 0 
// column 0 


sernclr(); 
// turn on the cursor 


onCur(); 
) 


Writing a string to the screen 


Function vdWrite(...) permits you to write a string of predetermined length 
to the screen at a specified row and column location. You also control the 
video write attribute. This version of vdWrite(...) is more than just a MASM 
5.1 version of the routine presented in my Building C Libraries: Windows, 
Menus, and User Interfaces (Windcrest Book No. 3418). This version is an 
upgrade that allows you to print a NULL (0) terminated string by placing a 
value of O in the length parameter. Because function vdWrite(...) takes five 
parameters, it seems sensible to present a detailed look of the function’s 
syntax, which is 


vdWrite(row,col,len,string, attr); 


where row = screen row location to start string write (int) 
col = screen column location to start string write (int) 
len = if O then print NULL terminated string 
if > O then print /en bytes (int) 
string = pointer to char buffer (char «) 
attr = attribute created using function mkAttr(...) (int) 


VDWRITE.ASM, shown in FIG. 4-8, is the source code to the vdWrite(...) 
function. Assemble VDWRITE.ASM and add the resultant VOWRITE.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 

PROG16.C, shown in FIG. 4-9, is a screen-write comparison program 
that tests the speed of the standard C function puts(.... and compares it to 
the speed of the TAB library function vdWrite(...). The speed is tested using 
the TAB jiffy timer (see FIG. 1-1, in chapter 1, for more information on the 
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jiffy timer). Compile PROGI16.C and link the resultant PROG16.OBJ 
object module with your TABS.LIB file. Run PROGI16.EXE and you'll see 
the screen-write comparison program in action. Here are the jiffy timer 
results that were reported by my 25 MHz. 386 PC clone computer. 


Screen-Write Method Jiffy Timer Results 


C function puts(...) 223 jiffys 
TAB function vdWrite(...) 2 jiffys 


As you can see, PROG16 demonstrates on my computer that TAB library 
function vdWrite(...) performs 99 times faster than the C function puts<(...). 
When you see the program running and writing to the screen, the direct 
video access method of writing to the screen appears much faster than the 
standard C function puts(...). 


4-8 The source code listing to VOWRITE.ASM. 


BULL 


:// vdwrite.asm 

s/f 

:// Description: 

3// Writes a string of predetermined length 
:// to the screen at a specified row and 
://_ column location. TRhe attribute is 

:// also specified. 


i// 

:// void vdWrite(row,col,len,cptr,attr) 
i// 

:// int row row of string write 

s// int col column of string write 


:// int len number of bytes to write 
;// char *cptr pointer to string to write 
s// int attr attribute of screen write 


*// Note: If length of string is 0 then 
iff string prints until NUL 
DOSSEG 
if mdl eq 1 
-MODEL SMALL ,C 
elseif mdl eq 2 
-MODEL MEDIUM,C 
else 
.MODEL LARGE,C 
endi f 
EXTRN SCRNSEG: WORD 
: beginning of code segment 


- CODE 
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4-8 Continued. 


vdWrite PROC USES DI SI DS,prow:BYTE,pcol:BYTE,plen:WORD,pptr:PTR,pattr:BYTE 


mov 
mov 


if mdl eq 3 


lds 
else 

mov 
endi f 

xor 


jmp 
all_done: 
ret 


CX, SCRNSEG 


ES,CX 


si, [pptr] 


len_gt_0 
all_done 


AL, AL 
all_done 


len_eq_0 


vdWrite ENDP 


END 


=e Se Me Be Be Be Be We We Be BW We We Bea We We We Be We We We We We We Be We Ws We We We We We Ba 


screen segment to CX 
& to ES 

DS:SI points to 
string for large model 
DS:SI points 

to string 


0 -> AX 

row -> AL 

160 = (80 chars wide * 2) 
row * scrn width -> AX 
column to CL 

0 -> CH 

col * 2 

column + (row * scrn width) 
point DI to scrn 

direction increment forward 
string length -> CX 

make word token 

Is CX 0? 

Jump on yes 

length greater than 0 

get byte from string 

store token to screen 

loop on string not done 
vdWrite all done 

print string until 0 is reached 
get byte from string 

0 string terminator found? 
Jump and exit on yes 

store token to screen 

get next byte 

vdWrite all done 


4-9 The source code listing to PROG16.C. 


SILITTTLTTTITTT LLL TTT TTT TTT 


// 


// PROG16.C 


// 


// Description: 
// Function vdWrite performance 

// comparison to a mvCur and puts 
// combination. 


Sf 


SITIVTTTITTTITTT ATT LT TTT TTT 


// include files 


#include <stdio.h> 
#include <dos.h> 
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4-9 Continued. 


// _cdecl function prototypes ensures 
// standard Microsoft parameter passing 
// and pre_underscore function naming 


void cdecl initialize timer(); 
void _cdecl remove_timer(); 
void _cdecl reset_timer(); 

void _cdecl start_timer(); 

void _cdecl stop _timer(); 

int _cdecl get_jiffy(void); 


// functions declared without _cdecl 
// permit you to use _fastcall (/Gr) 
// parameter passing 


void main(void); 
// data 


char xdat [80] = ¢ 
oO? Sie Gir Gar CD Ce CoD Cam) Cae (ie 
Pe Cera Cire Corey Cie Gira Cie ¢ are Cem Cae 
a ee ee EK KO, 
TT Ae ee OX XE XE Xe Oe, 
EH I KE OY CE eK 
A ON a RK, 
aren Gara ray Gore Grew Gm Cee Ce eee. ue 
Cg Rg IKE Xe Xe 0 >: 


char odat [80] = ¢ 
8 hae ‘Of, 10" 3 9 a tot, tO", HON iO! 1O!, ‘O"; 
Lt. ‘Oo! ‘Ot. 'Q', 10%, 'O} tO". ‘Of, 'O', tO", 
ro" Ot 70", ‘0? nO OL ‘Or ‘O°, tO 10?» 
‘0? tO" tO. EO? ‘0! ‘Ot. ‘O*, 10%. OF. FOr, 
Oe. 10%; "Ot; ‘Of; a @ LP Of, ‘Ot. ‘OF; ‘O', ‘O*., 
‘Of, 'O* Ot. Oh, 19! ; 'O', ‘0%; "0%, ‘Ot, ‘O”; 
tOt. 10? ; ‘O°, Ot. ‘Oo! ‘OF, 10%; 'O', ‘Ot. 10M 
"0%, AOF ‘0%, ‘O*; ‘O°, 10"; 19! ; 'O*,; 'O' 0 ,; 


// program begins here 

void 

main) 

{ 

int count,ctr,counter; 

// initialize the video 

vidInit(); 

// initialize the jiffy timer 
initialize timer(); 

// stop and reset the the jiffy timer 


reset_timer(); 
stop_timer(); 
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4-9 Continued. 
// print message 
printf("Screen Write Comparison Program\nPress any key to continue"); 
// wait for key press 
getchar(); 
// clear the screen 
sernclr(); 
// start the timer 
start_timer(); 
// repeat mvCur and puts operations 
for(counter=0; counter<8: counter++) 
7; print 20 rows of Xs to the screen 
for(count=0; count<22; count++) 
sea ceoiat as: 
puts(xdat); 
> 
// print 20 rows of Os to the screen 
for(count=0; count<22; count++) 
= eosicuneGs: 
puts(odat); 
> 
> 
// stop the timer 
stop_timer(); 
// adjust the cursor 
mvCur (23,0); 


// print the jiffy count for screen write 


printf("Jiffy Count = Ad\n",get_jiffy()); 
// stop and reset the the jiffy timer 


reset_timer(); 
stop_timer(); 


// print message 
printf("mvCur(...) & puts(...) test complete - PRESS any key to continue"); 


// wait for key press 
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4-9 Continued. 
getchar(); 
// clear the screen 
sernCltr(); 
// start the timer 
start_timer(); 
// repeat vdWrite operations 
for(counter=0; counter<8; counter++) 
7 print 20 rows of Xs to the screen 
for(count=0; count<22; count++) 
// write NUL terminated string to screen 
// using NORMAL (7) attribute 
vdWrite(count,0,0,xdat, 7); 
// print 20 rows of Os to the screen 
for(count=0; count<22; count++) 
// write NUL terminated string to screen 
// using NORMAL (7) attribute 
‘ vdWrite(count,0,0,odat,7); 
// stop the timer 
stop_timer(); 
// adjust the cursor 
mvCur(23,0); 
// print the jiffy count for screen write 
printf("Jiffy Count = %d\n",get_jiffy()); 
// remove the timer 
remove_timer(); 
// print message 
printf ("vdWrite(...) test complete - PRESS any key to continue"); 
// wait for key press 
getchar(); 
// clear the screen and return to DOS 


sernClr(); 


} 
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Writing a horizontal line to the screen 


Function vdHoriz(...) draws a single-line horizontal bar on the screen starting 
at a specified row and column location of predetermined length. This func- 
tion also controls the screen-write attribute. VDHORIZ.ASM, shown in FIG. 
4-10, is the source code to the vdHoriz(...) function. Assemble VDHORIZ.ASM 
and add the resultant object modules to your TABS.LIB, TABM.LIB, and 
TABL.LIB files. 
PROG17.C, shown in FIG. 4-11, demonstrates the use of function 
vdHoriz(...). Compile PROG17.C and link the resultant PROG17.OBJ object 
module with your TABS.LIB file. Running PROG17.EXE demonstrates 
how to write a horizontal bar of predetermined length at a specified loca- 
tion to the screen. 


4-10 The source code listing to VDHORIZ.ASM. 


s/f 
iS] 
i// 
i// 
s/f 
i// 
i// 
s// 
i// 
i// 
i// 
s// 
s// 
s/f 
sf 
i// 


STLLLLTLLITTTT TTT TTT TTT TATA 


vdhoriz.asm 


Description: 

Writes a single line horizontal 

bar of predetermined length at 

a specified row and column location. 
The horizontal bar attribute is also 
controlled. 


vdHoriz(row,col ,number, attr) 

int row row of string write 

int col colum of string write 

int number number of bar bytes to write 
int attr attribute of screen write 


DOSSEG 


if mdl eq 1 


»-MODEL SMALL,C 


elseif mdl eq 2 


-MODEL MEDIUM,C 


else 


.MODEL LARGE,C 


endi f 


EXTRN SCRNSEG: WORD 


- CODE 


vdHoriz PROC USES DI,prow:BYTE,pcol :BYTE, pnumber : WORD, pattr:BYTE 


mov CX, SCRNSEG ; screen segment to CX 
mov ES, CX 3; & to ES 

xor AX , AX ; 0 -> AX 

mov AL, prow ; Tow -> AL 

mov BL, 160 : 80 chars wide * 2 

mul BL 3 row * scrn width -> AX 
mov CL,pcol ; column to CL 
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4-10 Continued. 


xor 
shl 
add 
mov 
cld 
mov 
mov 
mov 

rep stosw 
ret 


CH,CH 
CX,1 

AX, CX 
DI,AX 


AL, 196 
AH, pattr 
CX , pnumber 


vdHoriz ENDP 


= =e & =e @se Me Be We 


0 -> CH 

col * 2 

column + (row * scrn width) 
point DI to scrn 

forward increment 


* create screen token 


bar & attribute => AX 


- row to write 


END 


4-11 The source code listing to PROG17.C. 
VILTTLTTTLAT TTA Tt 
// 


// progi7.c 
// 


// Demonstrates the use of vdHoriz 


// 
ULL 


// include files here’ 


#include <tproto.h> 


void main(void); 


void 
main() 


int attr; 
// initiali 


vidiInit(); 


ze video 


// define attribute 


attr = mkAttr(WHITE ,MAGENTA,OFF_INTENSITY,OFF_ BLINK); 


// clear the screen 


sernCi(r(); 


// turn the cursor off 


of fCur(); 


// write 80 bytes at top menu bar 
// at row 1 - col 0 to col 79 


vdHoriz(1,0,80,attr); 


// write message 
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vdWrite(24,10,0,"Press any key to continue...",attr); 
// wait for key press to continue 

getchar(); 

// clear the screen 

sernclr(); 

// turn on the cursor 


onCur(); 
} 


Writing a vertical line to the screen 


Function vdVert(...) draws a single-line vertical bar on the screen starting at a 
specified row and column location of predetermined length. The screen- 
write attribute also is controlled with this function. VOVERT.ASM, shown in 
FIG. 4-12, is the source code to vdVert(...). Assemble VDVERT.ASM and add the 
resultant VDVERT.OBJ object modules to your TABS.LIB, TABM.LIB, and 
TABL.LIB files. 

The program PROG18.C, shown in FIG. 4-13, demonstrates the use of 
function vdVert(...). Compile PROG18.C and link the resultant PROG18.0BJ 
object module to your TABS.LIB file. Running PROG18.EXE demonstrates 
how function vdVer((...) writes a vertical bar to the screen. 


4-12 The source code listing to VDVERT.ASM. 


SLLLITLLTLLTTT TTL TL LTT TATA 
3// vdVert.asm 

i// 

3// Description: 

s// Writes a single line vertical 

3// bar of predetermined length at 

3//_ a specified row and column location. 
3:// The vertical bar attribute is also 
3// controlled. 


Sf 

s// vdVert(row,col ,number, attr) 

// 

s// int row row of string write 
:// int col column of string write 


3://_ int number number of bar bytes to write 
s// int attr attribute of screen write 


DOSSEG 
if mdl eq 1 

-MODEL SMALL,C 
elseif mdl eq 2 
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4-12 Continued. 


-MODEL MEDIUM,C 
else 

-MODEL LARGE ,C 
endi f 


EXTRN SCRNSEG:WORD 
- CODE 


vdVert PROC USES DI,prow:BYTE,pcol :BYTE, pnumber : WORD, pattr: BYTE 
mov CX, SCRNSEG screen segment to CX 


J 
mov ES, CX ; & to ES 
xor AX , AX : 0 -> AX 
mov AL, prow ; row -> AL 
mov BL, 160 ; 80 chars wide * 2 
mul BL ; row * scrn width -> AX 
mov CL,pcol : column to CL 
xor CH,CH 3; 0 -> CH 
shl CX, 1 : col * 2 
add AX , CX ; column + (row * scrn width) 
mov DI, AX ; point DI to scrn 
mov AL,179 : vertical line 
mov AH, pattr ; attrobute 
mov CX, pnumber : row to write 
vdvi: : loop start 
mov ES: (DI] , AX ; AX -> screen 
add DI, 160 3; next row down 
loop vdv1 3; loop end 
ret 
vdVert ENDP 
END 


4-13 The source code listing to PROG18.C. 


VISITLLTTTTTTTTTTL TTA AAA AT 
// 

// prog18.c 

// 

// Demonstrates the use of vdHoriz & vdVert 
If 

SIVILTTTATATT TTT TT 
// include files here 

#include <tproto.h> 

void main(void): 

void 

main() 

{ 

int attr; 

// initialize video 


vidiInit(); 
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// define attribute 


attr = mkAttr(WHI TE, ,MAGENTA,OFF_INTENSITY,OFF_BLINK); 
// clear the screen 
scrnctr(); 


// turn the cursor off 


of fCur(); 

// write box 

vdHoriz(1,0,80, attr); // top 
vdHoriz(23,0,80, attr); // bottom 
vdvert(1,0,23,attr); // (eft bar 
vdVert(1,79,23,attr); // right bar 


vdChar(1,0,mkToken(218,attr)); // left top corner 
vdChar(1,79,mkToken(191,attr)); // right top corner 
vdChar(23,0,mkToken(192,attr)); // left bottom corner 
vdChar (23, 79,mkToken(217,attr)); // right bottom corner 


// write message 

vdWrite(24,10,0,"Press any key to continue...",7); 
// wait for key press to continue 

getchar(); 

// clear the screen 

sernCir(); 

// turn on the cursor 


onCur(); 
} 


Changing a string of screen attributes 


Function vdAttr(...) permits you to change a designated number of screen 
attributes at a specified row and column screen location. Function vdAttr(...) 
will prove very useful when you wish to write user interface routines that 
highlight the option the user has selected. VDATTR.ASM, shown in FIG. 
4-14, is the source code to the vdaAttr(...) function. Assemble VDATTR.ASM 
and add the resultant VDATTR.OBJ object modules to your TABS.LIB, 
TABM.LIB, and TABL.LIB files. 

PROG19.C, shown in FIG. 4-15, demonstrates function vdAttr(...). Com- 
pile PROG19.C and link the resultant PROG19.OBJ object module with 
your TABS.LIB file. Running PROG19.EXE demonstrates how to change a 
selected number of screen attributes at a specified row and column loca- 
tion without altering screen character information. 
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4-14 The source code listing to VDATTR.ASM. 


BULL 


:// vdAttr.asm 

i// 

3// Description: 

:// Changes screen attributes 

:// of predetermined length at 

:// a specified row and column location. 


s/f 

“H/ vdAttr(row,col ,number, attr) 

:// 

s// int row row of string write 
:// int col column of string write 


://_ int number number of bar bytes to write 
s// int attr attribute of screen write 
| 


DOSSEG 
if mdl eq 1 

«MODEL SMALL,C 
elseif mdl eq 2 

-MODEL MEDIUM,C 
else 

~MODEL LARGE ,C 
endi f 


EXTRN SCRNSEG: WORD 


- CODE 
. CODE 
vdAttr PROC USES DI SI,prow:byte,pcol :byte, plen:word, pattr:byte 
mov CX, SCRNSEG ; screen segment to CX 
mov ES. CX ; & to ES 
xor AX, AX ; 0 -> AX 
mov AL, prow ; Tow -> AL 
mov BL, 160 ; 80 chars wide * 2 
mul BL 3 row * scrn width -> AX 
mov CL, pcol ; column to CL 
xor CH,CH : 0 -> CH 
shl CX, 1 ; col. * 2 
add AX , CX ; column + (row * scrn width) 
mov DI, AX ; point DI to scrn 
cld 3; forward direction increment 
Mov AL,pattr ; attribute to AL 
mov CX, plen ; string length parameter 
vdri: ; begin loop 
inc DI ; bypass character byte 
stosb s AL -> screen 
loop vdr1 ; end loop 
ret 
vdAttr ENDP 
END 
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4-15 The source code listing to PROG19.C. 


VISIT TTATTTT TTA TTT AT 
// 

// progi9.c 

// 

// Demonstrates the use of vdAttr 

// 

VISITTVTTTTTTT LATTA ST 
// include files here 

#include <tproto.h> 

void main(void); 

void 

main() 

{ 

int attr,row; 

// initialize video 

vidInit(); 

// define attribute 

attr = mkAttr(WHITE,MAGENTA,OFF_INTENSITY,OFF_BLINK); 
// clear the screen 

sernClr(); 

// turn the cursor off 

offCur(); 


// change the screen attributes from row 0 to row 23 


for(row=0; row<24; rowt+) 
vdAttr(row,0,80,attr); 


// write box 

vdHoriz(1,0,80, attr); // top 
vdHoriz(23,0,80,attr); // bottom 
vdVert(1,0,23, attr); // left bar 
vdVert(1,79,235,attr); // right bar 


vdChar(1,0,mkToken(218,attr)); // left top corner 
vdChar(1,79,mkToken(191,attr)); // right top corner 
vdChar(23,0,mkToken(192,attr)); // left bottom corner 
vdChar(23,79,mkToken(217,attr)); // right bottom corner 
// alter attribute for last row 


vdAttr(24,0,80,mkAttr(WHITE,RED,OFF_INTENSITY,OFF_BLINK)); 
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// write message 


vdWrite(24,10,0,"Press any key to continue...",7); 


// wait for key press to continue 
getchar(); 

// clear the screen 

sernClr(); 

// turn on the cursor 


onCur(); 
> 


Reading a character and attribute from the screen 


Function vrdChar(...) returns a 16-bit screen token from a specified row and 
column screen location. The C version of function vdChar(...) has been pre- 
sented so you can see how a C function can access the screen information 
gathered by function vidinit(.... VRDCHAR.C, shown in FIG. 4-16, is the 
source code to the vrdChar(...) function. Compile VRDCHAR.C and add the 
resultant VRDCHAR.OBJ object module to your TABS.LIB, TABM.LIB, 
and TABL.LIB files. 


4-16 The source code listing to VRDCHAR.C. 


SILLLTTTTTL TTT TTT 

// 

// vrdchar.c 

// Description: 

// Reads a screen character and attribute 
// (token) from the screen at row and colum 
// screen location via direct memory. 

// token = vrdchar(rowm,col); 

// token = LSB is char, MSB is attribute 
// row = int screen row location 

// col = int screen column location 

// 

VULLLITTTTLTLT TTT TTT AAA TT 

// include files here 


#include <tproto.h> 


extern VIDEO *crt; 
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int 

_fastcall vrdChar(row,col) 

int row,col; 

{ 

long offset; 

unsigned int far *scrn; 

// set screen pointer 

scrn = (unsigned int far *)ert->scrn; 


// calculate screen address offset from 
// screen start address 


offset = (long) (row*80)+col; 
// return screen token 
return(*(scrntoffset)); 


) 


PROG20.C, shown in FIG. 4-17, demonstrates function vdaAttr(...). Com- 
pile PROG20.C and link the resultant PROG20.OBJ object module with 
your TABS.LIB file. Running PROG20.EXE demonstrates how to relocate 
one section of screen information to another section of the screen. 


4-17 The source code listing to PROG20.C. 


VUTTIVTLTATT LATTA 
// 

// prog20.c 

If 

// Tests function vrdchar(...) 


// 
UU 
// include files here 

#include <stdio.h> 

#include <tproto.h> 

void main(void); 


void 
main() 


int row,col, token,ctri1,ctr2; 
// initialize TAB library video 
vidInit(); 
// clear the screen 
436 


sernCir(); 


// print test row via C standard library 
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printf("Hello Chuck!"); 


// relocate message via function vrdchar(...) 
// row loop counter 


for(ctri=1; ctr1<20; ctri++) 
{ 
// token counter read & copy loop 


for(ctr2=0; ctr2<12; ctr2++) 
{ 
// get the screen token 


token = vrdChar(0,ctr2); 
// write screen token at new location 


vdChar(ctri1,ctr2, token); 
} 
) 


// wait for key press 

getchar(); 

// clear screen and return cursor to row 0, col 0 
sernClr(); 


} 


Saving and restoring the visible screen 


Functions saveScrn(...) and restScrn(...) save the screen display data and restore 
the previously saved screen display data, respectively. SAVESCRN.C, shown 
in FIG. 4-18, and RESTSCRN.C, shown in FIG. 4-19, are the source codes to 
the functions saveScrn(...) and restScrn(...), respectively. Compile SAVESCRN.C 
and add the resultant object modules to your TABS.LIB, TABM.LIB, and 
TABL.LIB files. Compile RESTSCRN.C and add the resultant object mod- 
ules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


4-18 The source code listing to SAVESCRN.C. 


VILTVTTTTTILT TTT TT 
// 
// savescrn.c 


// 
// Description: 
// Save text screen to unsigned int SCRN_MEM[80*25] 


// 
// WARNING - vidInit MUST be called before this 


// routine! 
VILTLTTTTTTL TTA A TTT TTT ST 
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// include files here 
#include <tproto.h> 
extern unsigned int SCRN_MEM(80*25] ; 
void 
_fastcall saveScrn() 
{ 
unsigned int *iptr; 
int row; 
int colum; 
// set pointer to screen buffer 
iptr = SCRN_MEM; 
// relocate screen token info to buffer by row 
forCrow=0; row<25; row++) 
// and by column 
for(column=0; column<80; column++) 


// transfer token 


*iptr++ = vrdChar(row,colum); 


4-19 The source code listing to RESTSCRN.C. 
SITTTIVTTTTLLT TLD TTA TT 
| 


// restscrn.c 
II 
// Description: 


// Restore text screen fromunsigned int SCRN_MEM[80*25] 


// 

// WARNING - vidInit MUST be called before this 
// routine! 

VILTTLTLTTTTTL TTT 


// include files here 
#include <tproto.h> 

unsigned int SCRN_MEM[80*25]; 
void 


_fastcall restScrn() 
{ 

unsigned int *iptr; 
int row; 

int column; 
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4-19 Continued. 
// set pointer 


iptr = SCRN_MEM; 
// restore by row 
for(row=0; row<25; row++) 
// restore by column 
for(column=0; column<80; column++) 
// write to screen 


vdChar(row, column, *iptr++); 


PROG21.C, shown in FIG. 4-20, demonstrates the use of functions 
saveScrn(...) and restScrr(...). Compile PROG21.C and link the PROG21.OBJ 
object module with your TABS.LIB file. Running PROG21.EXE demon- 
strates how to save the screen image data, alter the screen image, and then 


restore the previously saved screen image. 


4-20 The source code listing to PROG21.C. 


VIITTTTTTTTA TATA 

// 

// prog2t.c 

// 

// Demonstrates the use of saveScrn & restScrn 
// 

VISIT ITTTATL TTT LTD ST 

// include files here 

#include <tproto.h> 

void main(void); 


void 
main) 


int attr, row; 

// initialize video 
vidiInit(); 

// save cursor location 


sCloc(); 
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// save the screen image 
saveScrn(); 


// define attribute 


attr = mkAttr(WHITE,MAGENTA,OFF_INTENSITY,OFF_ BLINK); 


// clear the screen 
sernclr(); 
// turn the cursor off 


offCur(); 


// change the screen attributes from row 0 to row 23 


for(row=0; row<24;: row++) 
vdAttr(row,0,80,attr); 


// write box 

vdHoriz(1,0,80, attr); // top 
vdHoriz(23,0,80, attr); // bottom 
vdVert(1,0,23,attr); // left bar 
vdVert(1,79,23,attr); // right bar 


vdChar(1,0,mkToken(218,attr)); // left top corner 


vdChar(1,79,mkToken(191,attr)); // right top corner 
vdChar(23,0,mkToken(192,attr)); // left bottom corner 


vdChar(23,79,mkToken(217,attr)); // right bottom corner 


// alter attribute for last row 


vdAttr(24,0,80,mkAttr(WHITE,RED,OFF_INTENSITY,OFF_BLINK)); 


// write message 


vdWrite(24,10,0,"Press any key to continue...",7); 


// wait for key press to continue 
getchar(); 

// restore original screen image 
restScrn(); 

// restore cursor location 
rCloc(); 

// turn on the cursor 


onCur(); 
} 
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Summary 


In this chapter you learned how to create a screen token (character and 
attribute), create a screen attribute, write a token to the screen, write a 
string to the screen, write horizontal and vertical bars to the screen, reada 
token from the screen, and save and restore the screen image. All of this 
was accomplished using functions that directly wrote data to or read data 


from screen RAM. 


Function vidlnit(...) must be called before any of the direct video access 


screen functions are called. 


A screen-write comparison program clearly demonstrated that di- 
rectly accessing screen RAM to write to the screen provides results far 
superior to those of writing to the screen using standard C functions. 

Figure 4-21 is a listing of all the functions currently contained in your 


TAB libraries. 


4-21 


arestScrn....sccee 
arsizeCur....csece 


addi jiff......26. 
_get_jiffhour 


_get_jiffy..... eet) 


_SPARKLE_FLAG 
_stop_timer 
_vdAttr 


mvcur 
_mvCur 


timer 
_add1 jiff 
_get_ljiffy 
_remove_timer 


gtcur 
agtCur 


rmvcur 
armvCur 


scloc 
asCloc 


The listing of current TAB library functions. 


134 Foundation screen-handling routines 


gtcur MOTI CUR i vc 6.68600 ed of fcur 
oncur OPC OCs cio eateeaes rcloc 
restscrn @rmMvCur... see eeeee rmvcur 
ssizecur @saveScrn......0.- savescrn 
scloc @sizeCur.......00. sizecur 
ssizecur @vrdChar........0. vrdchar 
timer gee er ere vidinit 
timer _get_jiffmin...... timer 
timer _get_ljiffy....... timer 
g_shape _initialize_timer..timer 
mkattr _mkToken.......... mktoken 
mvcur _newtimer........- timer 
timer _reset_timer...... timer 
sernclr _SCRNSEG.......... vidinit 
vidinit _Start_timer...... timer 
timer _S_Shape.......... s_shape 
vdattr vdChar.........6- vdchar 
vdhor iz VAVert..ccccccces vdvert 
vdwrite NVIGINIS ssiswwa ase vidinit 
vidinit 
Offset: O0000010H Code and data size: 15H 
Offset: OQO000b0H Code and data size: e0H 
_get_jiffhour _get_jiffmin _get_jiffy 
_initialize_timer _newtimer 
_reset_timer _Start_timer _stop_timer 
Offset: 00000390H Code and data size: 2cH 
Offset: 000004a0H Code and data size: 30H 
Offset: 000005e0H Code and data size: 26H 


4-21 


rcloc 
arCloc 


oncur 
aonCur 


s_shape 
_s_shape 


g_shape 
_g_shape 


offcur 
aof fCur 


sizecur 
asizeCur 


ssizecur 
arsizeCur 


mktoken 
_mkToken 


mkattr 
_mkAttr 


scrnclr 
_sernclr 


vidinit 
_ert 
_VID_PORT 


vdchar 
_vdChar 


vdwrite 
_vdWrite 


vdhor iz 
_vdHoriz 


vdvert 
_vdVert 


vdattr 
_vdAttr 


vrdchar 
avrdChar 


savescrn 
asaveScrn 


restscrn 
arestScrn 


Continued. 


Offset: 00000710H 


Offset: 00000830H 
Offset: 00000950H 
Offset: OOO009fOH 
Offset: 00000a80H 
Offset: 00000ba0H 
Offset: O0000cbOH 
assizeCur 
Offset: OO0000dfOH 
Offset: 00000e90H 
Offset: 00000f30H 


Offset: OOO00fdOH 
_SCRNSEG 


Offset: 000011a0H 
Offset: 00001270H 
Offset: 00001350H 
Offset: 00001420H 
Offset: 000014f0H 
Offset: 000015cOH 
Offset: 00001700H 


Offset: 00001860H 


Code and data 


Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 


Code and data size 
_SPARKLE_FLAG 


Code 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 


Code and data 


Summary 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


and data size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


10H 


eH 


cH 


7H 


eH 


1aH 


26H 


bi 


17H 


“aH 


: 71H 
_vidInit 


27H 


42H 


2cH 


32H 


2eH 


3cH 


44H 


46H 
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5 
Foundation keyboard routines 


There are two commonly used methods for getting user input into a pro- 
gram. Using the keyboard for program input will be discussed in chapter 5 
and using the mouse will be discussed in chapter 8. In this chapter there 
will be three keyboard functions presented. The first two functions use the 
BIOS to read a key press’ 8-bit scan and character codes and the third 
function, vdEdit(...), will prove invaluable in data-entry routines where you 
need to read strings of key presses into memory. 


Stopping program and waiting for key press 


Function gtKey(...) stops program execution and waits for a key press to con- 
tinue. The scan and character codes of the key press are returned by func- 
tion gtKey(...)in a 16-bit int value.The 16-bit int’s MSB holds the key press’ 
8-bit scan code and the LSB holds the 8-bit character code. GTKEY.C, 
shown in FIG. 5-1, is the source code to the gtKey(...) function. Compile 
GTKEY.C and add the resultant object modules to your TABS.LIB, 
TABM.LIB, and TABL.LIB files. 

PROG22.C, shown in FIG. 5-2, demonstrates the use of function gtKey 
(...). Compile PROG22.C and link the resultant PROG22.OBJ object mod- 
ule with your TABS.LIB file. Running PROG22.EXE permits you to get the 
scan-code and character-code value of a key press. 


Not stopping program and returning key press 


Function gtKBstat(...) returns a NULL (0) value if there has not been a key 
press and a 16-bit int scan and character code value if a key has been 
pressed. This function will prove useful when developing mouse and key- 
board driven event queue handler routines. 
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5-1 The source code listing to GTKEY.C. 


IMT 
// 


// gtkey.c 

// 

// Description: 

// Wait for key press and 

// return char code is AL 

// and scan code in AH registers. 


// 
// key = gtKey(); 
// 
// int key => 16 bit key value where 
// key's LSB = char code 
// key's MAB = scan code 
#include <tproto.h> 
int 
_fastcall gtKey() 
{ 
int key; 
// invoke inline assembler 
asm 
{ 
xor AX , AX ; wait and get key function 
int 16h :; via BIOS 


mov key, AX ; AL = char code / AH = scan code 


// return char and scan code 


return(key); 
> 


5-2 The source code listing to PROG22.C. 


SULLVLLTTTLTTLTLTTSTTT TTT 


II 

// prog22.c 

// 

// Description: 

// Tests function gtKey(...): 


// 

// key = gtKey(); 

If 

// key = MSB key scan code 

// LSB key character code 
// (int) 

// 


// include files here 


#include <stdio.h> 
#include <tproto.h> 
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5-2 Continued. 
// start program 


void main(void); 


void 
main() 

{ 

int key; 


// print program message 


printf("\n\nPrints scan and char code until ESCAPE KEY pressed''); 
printf("\nPress any key to start\n\n"); 


//f print key value until ESCAPE key pressed 


do 
{ 
printf("Press any key /ESC to exit\n\n"); 
key = gtKey(); 
printf("Key press is: %c\n",key & OxO00ff); 
printf("Scan code = 0x%02x\n",key>>8 & Ox00ff); 
printf("Char code = 0x%02x\n",key & Ox00ff); 
) while(key != ESCAPE); 


For example, let’s say that you .vish to write a user interface routine 
where you will be permitting the user to enter information via the mouse 
or keyboard. If you used function gtKey(...) you would not be able to monitor 
the mouse because your function would always be waiting for a key press 
to continue. Whereas, if you chose to use the function gtKBstat(...) to moni- 
tor key press input, you could check mouse movement and a keyboard’s 
press status using one function. More on event queue handlers in chapter 
8, Foundation mouse routines. 

GTKBSTAT.ASM, shown in FIG. 5-3, is the source code to the gtKBstat(...) 
function. Assemble GTKBSTAT.ASM and add the resultant GTKBSTAT.OBJ 
object module to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


5-3 The source code listing to GTKBSTAT.ASM. 


PLLILLLTTT LDA TLL T TTT TTT TT 
th 


:// gtkbstat.asm 

i// 

iff 

:// Description: 

:// Does not wait for key press. If 
:// function gtKBstat(...) returns 0 
3// then there is no key waiting 

°// otherwise the character code and 
:// scan code are returned in AX. 
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s/f 

:// ret = gtKBstat() 

f/f 

:// int 0 -> on no key waiting 
sll else key scan & char coode 
fl 


DOSSEG 


if mdl eq 1 

MODEL SMALL,C 
elseif mdl eq 2 

-MODEL MEDIUM,C 
else 

-MODEL LARGE ,C 
endif 


- CODE 


gtKBstat PROC 


mov AH, 1 ; kb stat function 
int 16h : keybd int 
jnz yeskey ; jmp on key waiting 
mov AX ,0 : no key wait return 0 
jmp keyexit ; jmp to exit here 
yeskey : otherwise return scan & char 
mov AH,0 s get waiting char via BIOS 
int 16h ; AX holds char & scan code 
keyexit: 


ret 
gtKBstat ENDP 


END 


PROG23.C, shown in FIG. 5-4, demonstrates function gtKBstat(...). Com- 
pile PROG23.C and link the resultant PROG23.OBJ object module with 
your TABS.LIB file. Running PROG23.EXE shows how to write a contin- 
ually looping program sequence while monitoring all keyboard press 
input. 


5-4 The source code listing to PROG23.C. 


CULL 
If 

// proge3.c 

// 

// Description: 

// Tests function gtKBstat(...); 

// 

FILIVLLLLTT TTT TT 


#include <stdio.h> 
#include <tproto.h> 


// start program 


140 Foundation keyboard routines 


5-4 Continued. 


void main(void); 
void 

main() 

{ 

int key; 


// print key press info whenever key is pressed 
// otherwise display no key pressed message 


// print key value until ESCAPE key pressed 


printf("Press any key /ESC to exit\n\n"); 


do 
{ 
key = gtKBstat(); 
if (key) 
{ 
printf("\nKey press is: %c\n",key & Ox00ff); 
printf("Scan code = 0x%02x\n",, key>>8 & Ox00ff); 
printf("Char code = 0x%02x\n", key & Ox00ff); 
printf("Press any key to continue /ESC to exit\n\n"); 
gtKey(); 
> 
else 
printf("No key waiting\n"); 
} while(key != ESCAPE); 
} . 
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There are five functions presented in this section: Delay(...), bleep(...), 
onSound(...), offSound(...), and vdEdit(...). The first four are basically bells and 
whistles for vdEdit(...), the hot keyboard editing function. Let’s take a closer 
look at each function. 

Functions onSound(...) and offSound(...) are two timer-based sound func- 
tions that allow function vdEdit(...) to alert the user to field-entry boundary 
limits. 

ONSOUND.ASM, shown in FIG. 5-5, is the source code to the onSound(...) 
function. Assemble ONSOUND.ASM and add the resultant ONSOUND.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


5-5 The source code listing to ONSOUND.ASM. 


PTILUTLTITLLTTLTA LTT LTT TT 
Sf 


;// onsound.asm 

i// 

:// Description: 

:// Sets timers to twiddle internal 
:// speaker. 

S/ 
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:// Entry: AX holds (int) tone 


i// 
DOSSEG 


if mdl eq 1 

«MODEL SMALL,C 
elseif mdl eq 2 

«MODEL MEDIUM,C 
else 

-MODEL LARGE,C 
endif 


- CODE 


onSound PROC tone:WORD 
; tell timer prep for new sound 


mov AL , OB6h 


out 43h,AL 
mov AX, tone 
out 42h,AL 
mov AL, AH 
out 42h,AL 
in AL,61h 
or AL,3 
out 61h, AL 
ret 

onSound ENDP 
END 


=e 


=e 


new tone to timer, LSB 


MSB -> LSB 
LSB -> timer 
enable speaker output via timer 


OFFSOUND.ASM, shown in FIG. 5-6, is the source code to the offSound(...) 
function. Assemble OFFSOUND.ASM and add the OFFSOUND.OBu object 
modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


5-6 The source code listing to OFFSOUND.ASM. 


SIILITTLLTTTTT TT TLLTT LTT LTT TTT 


i// 
s// offsound.asm 
ff 
:// Description: 


:// Turns speaker tone off. 


i// 
DOSSEG 


if mdl eq 1 

-MODEL SMALL ,C 
elseif mdl eq 2 

-MODEL MEDIUM,C 
else 

-MODEL LARGE ,C 
endi f 
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.CODE 


of fSound PROC 


in AL, 61h ; disable speaker output via timer 


and AL ,OFCh 


out 61h, AL 
ret 

offSound ENDP 
END 


Function Delay(...) is a variable delay that is microprocessor-speed 
dependent and is used in the function bleep(...). If you wonder what a 
‘‘bleep’’ sounds like then you will just have to type in the code and listen to 


the sound. 


DELAY.C, shown in FIG. 5-7, is the source code to the Delay(...) function. 
Compile DELAY.C and add the resultant DELAY.OBJ object modules to 
your TABS.LIB, TABM.LIB, and TABL.LIB files. 


5-7 The source code listing to DELAY.C. 


SILTTTTTTTLLLAT LDA TATA 
// 


// delay.c 

// 

// Description: 

// Short delay 

// 

// void delay(outer, inner); 
// 

// int outer => outer loop 
// int inner => inner loop 


#include <tproto.h> 


void 


_fastcall delay(outer, inner) 


int outer, inner; 
int cnt1,cnte2; 


// outer for / next loop 


for(cnt1=0; cnti<outer: cnt1++) 


// inner for / next loop 


for(cnt2=0; cnt2<inner; cnt2++) 


// to keep for / next kosher 


cnt2=cnt2; 
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BLEEP.C, shown in FIG. 5-8, is the source code to the bleep(...) function. 
Compile BLEEP.C and add the resultant BLEEP.OBJ object modules to 
your TABS.LIB, TABM.LIB, and TABL.LIB files. 


5-8 The source code listing to BLEEPC. 


SILILVTATTLTLTTAT ATTA TAA AT 
// 

// bleep.c 

// 

// Description: 

// Bleep sound (whatever that is) 


SIVTTITITATTTTTTT TIT T LTT TAT 
#include <tproto.h> 
void 
_fastcall bleep() 
at count; 
// frequency shift loop 
for(count=1000; count>10; count -= 20) 
yy turn on sound at a specified frequency value 
onSound( count ); 
// short delay here 
delay(100,5); 
} 
// turn off sound 
of fSound(); 


> 


Finally, there is function vdEdit(...). Jay Gould, a talented programmer 
at TSR Systems Ltd decided that ‘C’erious Library’s function prompt(...) 
just wasn’t adequate. He coded the first version of function vdEdit(...) 
designed to be compiled using Borland’s Turbo C compiler. I have adjusted 
this function to work with Microsoft C 6.0. Function vdEdit(...) really does 
have it all. 

The syntax for function vdEdit(...) looks like this: 


exit_key = vdEdit(response,row,col,/en,case,atir); 


where exit_key = exit key press (int) 
response = character pointer to field buffer (char «) 
row = edit start row location (int) 
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col = edit start column location 


len = length of response field 

case = howresponse buffer is presented (UPPER, 
LOWER,NAME) | 

attr = screen attribute of field 


VDEDIT.C, shown in FIG. 5-9, is the source code to the vdEdit(...) function. 
Compile VDEDIT.C and add the resultant VDEDIT.OBJ object modules to 


your TABS.LIB, TABM.LIB, and TABL.LIB files. 


5-9 The source code listing to VDEDIT.C. 


VITITTITTTTLTT LTT TTT TTT 
// 


// vdedit.c 

// 

// Description: 

// Gets keyboard input from entry 
// field. 


// 
SISILLLTTTTAT TTT AA 
// include files here 


#include <string.h> 
#include <ctype.h> 
#include <tproto.h> 


int defkey1=0,defkey2=0, defkey3=0,defkey4=0; 


int 

_fastcall vdEdit(response, row,column,dlen, opt, attr) 
char *response; 

int dlen, opt; 

int row,column,attr; 

{ 

int key; 

int start,stop; 

char *rptr; 

register int 1; 

int ins=0; 

char buf [80]; 

int cur, start_colum; 
int ret_val; 

int tlen; 


// set start coplumn for stopper on left arrow 
start_column = column; 
// save cursor shape and location 


cur = g_ shape(); 
sCloc(); 


// turn the cursor on 
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5-9 Continued. 
onCur(); 


// place '\0' at end point of response buffer 
*(responset+dlen)=0; 
// make response string upper or lower 


switch (opt) 


{ 

case LOWER: 
strlwr(response); 
break; 


case UPPER: 
strupr (response); 
break; 

case NAME: 
response = strlwr(response); 
*response = toupper(*response);: 
break; 

> 

// copy contents of response buffer to buf [] 


for (i=0;i<dlen; i++) 
buf [iJ =response [i]; 
// set start and stop variables 
start = colum; 
stop = start + dlen; 


// alter screen attributes for edit field 


vdAttr(row,column,dien, attr); 
// if *response != 0 then write string to screen 


if (*response) 
vdWriteCrow,column,0,response,attr); 


// adjust cursor location to response string end 
mvCur(row,column += strlen(response)); 

// set response pointer to end of response buffer 
rptr = responsetstrlen(response); 

// wait for key press 

key = gtKey(); 

// process key press first time through 


switch( key) 
{ 
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case ESCAPE: 
case ENTER: 
case Fi: 

case F2: 

case F3: 

case F4: 

case F5: 

case Fé: 

case F7: 

case F8: 

case F9: 

case F10: 

case UP_ARROW: 
case DOWN_ARROW: 


case TAB: 
s_shape(cur); // restore cursor shape 
rCloc(); // restore cursor location 


return(key); // return key press value 


case HOME: 
case PGUP: 


memset (response,0,dlent+1); // clear response buffer 


rptr = response; // reset pointer 
vdWrite(row,start,dlen,response,attr); // clear screen 
column=start; // reset column to start 
mvCur (row, column); // adjust cursor location 
break; . 
case CNTL_LEFTA: 
while (*--rptri=' '):; // mv ptr to ' ' char 
rptr++; // and incr ptr by 1 


// adjust cursor if ' ' is after start 


if(start_column<start+(int)(rptr-response)) 

mvCur (row, column=start+(int)(rptr-response) ); 
else 

{ 

// set column & adjust cursor 


column = start_colum; 
mvCur(row,start_column); 
> 

// write response buffer to screen 


vdWrite(row,start,dlen, response,attr); 
break; 


case LEFT_ARROW: 
// is cursor right of start? 


if(start_column<column) 


{ 
// yes -> adjust cursor left 


mvCur(row,--column); 


// adjust ptr 
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rptr--; 
> 
case END: 
case INSERT: 
case DELETE: 
case RIGHT_ARROW: 
case PGDN: 
// write response buffer to screen 


vdWrite(row,start,dlen, response, attr); 
break; 


default: 
// default return keys 


if (key==defkey! | |key==defkey2 | |key==defkey3 | |key==defkey4) 
{ 
s_shape(cur); 
rCloc(); 
return key; 
> 
// NULL out scan code 
key &=0x00ff; 
// set letter case 
switch (opt) 
{ 
case LOWER: 
key = tolower(key); 
break; 
case UPPER: 
key = toupper(key); 
break; 
> 
// if printable character 


if( (key>=0x20)&&(key<=0x7e) ) 
 € 


// NULL buffer 

memset (response ,0,dlen+1); 

// set pointer to response start 
rptr = response; 

// place key in response 
*rptr++ = (char)key; 


// write buffer to screen 
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vdWrite(row,start,dlen, response,attr); 
// adjust column pointer 
column=start+1; 
// adjust cursor position 


mvCur (row, column); 
> 


// is the key a backspace? 
if (key==aBS) 


{ 
// if column is greater than start 


if(column>start) 
{ 


// backspace in response beffer 
rptr--; 
// place NULL at new location 
*rptr = 0; 
// write response buffer 
vdWrite(row,start,dlen, response, attr); 
// adjust cursor location 
mvCur (row, --column); 
> 
> 
break; 
> 


// process key press from now on 


do 
{ 


// adjust case and write 
1f Copt==NAME) 
reeeen = toupper(*response); 
Peseta she nepeeney Teeny tee 
// stop and wait for key press 
key = gtKey(); 


// process key press 


Getting sophisticated string input from keyboard 149 


5-9 Continued. 


switch(key) 
{ 
case F1: // return from vdedit 
case F2: // and report key press 
case F3: 
case F4: 
case F5: 
case Fé: 
case F7: 
case F8: 
case F9: 
case F10: 
case UP_ARROW: 
case DOWN_ARROW: 
case TAB: 
case ENTER: 
s_shape(cur); 
rCloc(); 
return key; 


case ESCAPE: 
s_shape(cur); 
rCloc(); 
for (1=0;i<dlen; i++) // restore original 
response[i]=bufli]; // buffer contents 
return key; 


case CNTL_G: 
case DELETE: 
// delete char and adjust buffer 


for (1=0;i<stop-columnt1; i++) 

*(rptr+i)=*(rptr+1+i); 
vdWrite(row,start,dlen,response,attr); 
break; 


case CNTL_T: 


// erase from cursor to end 


while (*rptr&&*rptri=' ') // of line 
for (i=0;i<stop-columnt1; i++) 
*(rptrt+i)=*(rptr+1+i); 


while (*rptr&&*rptr==' ') 
for (i=0;i<stop-columnt+1; i++) 
*(rptrt+i)=*(rptr+iti); 


vdWrite(row,start,dlen, response, attr); 
break; 


case CNTL_END: 
// erase from cursor to entry end 


memset (rptr,0,stop-column); 


vdwWrite(row,start,dlen, response, attr); 
break; 
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case LEFT_ARROW: 
// move cursor left 


if(start_column<column) 


{ 
mvCur (row, --column); 
rptr--; 
> 
break; 


case CNTL_LEFTA: 
// move by word left 


if (rptr==response)break; 
while (*--rptr==' '&&(int)(rptr-response)>0); 
while (*--rptri=' '&&Cint)(rptr-response)>0); 
if((int)(rptr-response)>0) 

rptr++; 
mvCur (row, column=start+(int)(rptr-response) ); 
break; 


case CNTL_RIGHTA: 
// move by word right 


if(*rptr)while (*++rptri=" '&&*rptr); 
if(*rptr)while (*++rptr==' '&&*rptr); 

mvCur (row, column=start+(int)(rptr-response) ); 
break; 


case RIGHT ARROW: 
// move cursor right 


if (*rptr) 
{ + 
mvCur (row,++column); 
rptr++; 
} 

break; 


case CNTL_BS: 
// erase entry and start over 


memset (response,0,dlent+1); 

rptr = response; 
vdWrite(row,start,dlen,response, attr); 
columnestart; | 

mvCur (row, column); 

break; 


case HOME: 
// go to beginning of entry 


mvCur(row,column=start); 
rptr = response; 
break; 


case END: 
// go to end of entry 
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mvCur(row, column=start+strlen(response) ); 


rptr = response+strlen(response) ; 
break; 


case CNTL_H: 
case BS: 
// move cursor back and delete 


if¢colum~pstart) 
{ 
rptr--; 


for (i=0;1<stop-columnt1; i++) 
*(rptrt+i)=*(rptr+1+i); 

vdWrite(row,start,dlen, response, attr); 
mvCur (row, --column); 
} 

else 
bleep(); 

break; 


case INSERT: 
// toggle insert and overlay mode 


if(Cins) // cursor size adjusted 
{ 


ins=0; 
rsizeCur(); 
) 

else 
{ 
ins=1; 
ssizeCur(); 
sizeCur(0,7); 
) 

break; 


default: 
// check default return keys 

if (key==defkey1 
key==defkey2 


key==defkey3 
key==defkey4) 
{ 


s_shape(cur); // save cursor shape 
rCloc(); // restore cursor location 
return key; // return key value 

// NULL scan code 

key &=0x00ff; 

// process option 


switch (opt) 
{ 
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case NAME: 
case LOWER: 


// force lower case 


key = tolower(key); 
break; 


case UPPER: 
// force upper case 


key = toupper(key); 
break; 


> 
// NULL scan code 
key &=0x00ff; 
// is key printable characrter? 


if( (key>=0x20)&&(key<=0x7d) ) 
{ 


// is insert key toggled on 


ifCins) 
{ 


// determine length of response 
tlen = strlen(response); 
// is response less that max response? 


if (tlen<dlen) 
{ 


// relocate string making 
// space for new key 


for (i=dlen; i>(rptr-response);i--) 
response[i] = response[i-1]; 


// write response buffer 
vdWrite(row,start,dlen, response, attr); 


> 
> 


// is end of edit field not reached? 


if (column<stop) 
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// write char to screen 
vdChar (row, column, mkToken(key,attr)); 
// place key in buffer 
*rptr++ = (char)key; 
// adjust column 1 right 
column++; 
// move the cursor on the screen 
mvCur (row, column); 
sine 
// bleep at field end 
bleep(); 
} 
} while(1); 
} 7 


// 
// End of VDEDIT.C source listing 


// 
SISTITTTDTITTTT ATTA TT 


PROG24.C, shown in FIG. 5-10, shows how to use function vdEdit(...) to 
edit two fields. The user is permitted to toggle between two fields using the 
Tab key. Pressing Enter when you are editing the bottom field will take you 
out of the field edit loop. Running PROG24.EXE will tell you more about 
the true power of function vdEdit(...) than all the words I could use to 
describe it. Compile PROG24.C and link the resultant PROG24.OBJ 
object module to your TABS.LIB file. Put function vdEdit(...) through its 
paces. I think you'll be quite pleased. 


5-10 The source code listing to PROG24.C. 


SILTLTTTTALTTT AAT 
// 


// prog24.c 

// 

// Description: 

// Function vdEdit(...) 
// demonstration program. 


// 
SULTLLLLTATLLT TAT TTT 
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// include files here 


#include <stdio.h> 
#include <tproto.h> 


// deltcare varaibles here 
// message 
char name[25] = ¢€ 
Ch th, *ut te! *k*,! titd' tet! ' iD! 
fet fst th tri tot,ty',te','r',0,0,0,0,0,0,0 >; 


char address[(25] = ¢€ 


owaenwae™we 


0,0,0,0,0 
0,0,0,0,0, 
0,0,0,0,0, 
0,0,0,0,0 
0,0,0,0,0 


ove 


’ d; 


oe | 


// program start here 
void main(void); 


void 
main() 


int key; 
// initialize TAB video 
vidiInit(); 
// clear the screen 
sernclr(); 
// print messages 
mvCur (0,0); 
printf("First & Last Name:\n"); 
printf("Address:\n"); 
// turn cursor off 
offCur(); 
// edit fields loop 
do 
{ 
// edit name 
key = vdEdit(name,0,19,25, UPPER, 7); 
// edit address 


key = vdEdit(address,1,10,25,UPPER, 7); 
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} while(key != ENTER); 


// print name and address buffers 

mvCur (5,0); 

printf("Name buffer: %s\n",name); 
printf("Address buffer: %s\n\n", address); 


} 


Summary 


dn chapter 5 you learned how to stop program execution and read a key 
from the keyboard, gtKey(...), not stop program execution and check to see if 
a key had been pressed, gtKBstat(...), and learned how to read a string of 
input from the keyboard in an elegant fashion, vdEdit(...). 

Figure 5-11 presents the current library listing for the TABS.LIB file. 
Inch-by-inch your Microsoft C 6.0 TAB optimized libraries grow. 


5-11 The library listing for TABS.LIB. 


@bleep.......s000. bleep adelay...........- delay 
@gtCur............gtcur AgtKey....ceecesee gtkey 
aoffCur...... -----offcur @MonNCur....eccesees oncur 
OrCloc.cwcccvccass rcloc @restScrn.......6. restscrn 
@PMVCUP. wee ceecee rmvcur @rsizeCur.....eee- ssizecur 
@saveScrn...... «e-savescrn @sCloc......ceeees scloc 
@sizeCur.....ceees sizecur @ssizeCur....ceeee ssizecur 
AVGEdit....ceenees vdedit @vrdChar.......2.. vrdchar 
addi jiff.......0. timer CP Csceeccstewes er vidinit 
_defkey1........6. vdedit _defkey2.......... vdedit 
defkeyS...ccccee vdedit _defkey4.....s00e. vdedit 
_get_jiffhour..... timer _get_jiffmin...... timer 
_get_jiffy........ timer _get_ljiffy....... timer 
_QtKBstat.......0. gtkbstat _9_ Shape.......... g_shape 
_initialize_ timer. .timer _MkAttr....ccceeee mkattr 
_mkToken........0. mktoken MVCUP. woe wcccenes mvcur 
_newtimer.......2. timer _OffSound......... of fsound 
_onSound........ » -onsound _remove_timer..... timer 
_reset_timer...... timer _SCrnCl re. weeeeeee serncltr 
_SCRNSEG..... wo+2.Vidinit _SPARKLE_FLAG..... Vidinit 
_Start_timer...... timer _Stop_timer....... timer 
_S_shape.........- s_shape JVGACEP cwccswecee vdattr 
VOChar . ccc cc ccces vdchar _VGHOPIZ..ccececes vdhor iz 
WVAVErt. ccccencnce vdvert _VGWPite..ccceeeee vdwrite 
_VIdINIit...c.eeeee vidinit _VID_PORT........- vidinit 
mvcur Offset: OOO00010H Code and data size: 15H 
_mvCur 
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timer Offset: OOQO00b0H Code and data size: eOH 
_addt jiff _get_jiffhour _get_jiffmin _get_jiffy 
_get_ljiffy _initialize_timer _newtimer 
_remove_timer _reset_timer _Start_timer _stop_timer 

gtcur Offset: 00000390H Code and data size: 2cH 
agtCur 

rmvcur Offset: 000004a0H Code and data size: 30H 
armvCur 

scloc Offset: 000005e0H Code and data size: 26H 
asCloc 

rcloc Offset: 00000710H Code and data size: 10H 
arCloc 

oncur Offset: O00000830H Code and data size: eH 
aoncur 

s_shape Offset: O0000950H Code and data size: cH 
_S_shape 

g_shape Offset: OOO0009fOH Code and data size: 7H 
_9_shape 

offcur Offset: 00000a80H Code and data size: eH 
dof fCur 

sizecur Offset: O00000ba0H Code and data size: aH 
asizeCur 

ssizecur Offset: OO0000cbOH Code and data size: 26H 
arsizeCur assizeCur i 

mktoken Offset: OOOO00dfOH Code and data size: bH 
_mkToken 

mkattr Offset: 00000e90H Code and data size: 17H 
_mkAttr 

sernetr Offset: OOOOOf30H Code and data size: aH 
_sernclr 

vidinit Offset: OOOOOfdOH Code and data size: 71H 
_ert _SCRNSEG _SPARKLE_FLAG _vidInit 
_VID_PORT 

vdchar Offset: 000011aOH Code and data size: 27H 
_vdChar 

vdwrite Offset: 00001270H Code and data size: 42H 
_vdWrite 

vdhor iz Offset: 00001350H Code and data size: 2cH 
_vdHoriz 
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vdvert 
_vdVert 


vdattr 
_vdAttr 


vrdchar 
avrdChar 


savescrn 
asaveScrn 


restscrn 
a@restScrn 


delay 
adel ay 


bleep 
ableep 


gtkey 
agtKey 


vdedit 
avdedit 
_defkey4 


onsound 
_onSound 


of fsound 
_of fSound 


gtkbstat 
_gtKBstat 


Offset: 00001420H 


Offset: 000014f0H 
Offset: 000015c0H 
Offset: 00001700H 
Offset: 00001860H 
Offset: 000019d0H 
Offset: 00001af0H 
Offset: 00001c30H 


Offset: 00001d30H 
_defkey!1 


Offset: 00002780H 
Offset: 00002820H 


Offset: O000028b0H 
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Code and data 


Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 


Code and data 
_defkey2 


Code and data 


Code and data 


Code and data 


size: 32H 
size: 2eH 
size: 3cH 
size: 44H 
size: 46H 
size: 32H 
2eH 


size: 


size: 14H 


size: 75aH 


_defkey3 
size: 18H 
size: 7H 


size: 11H 


6 
Foundation rectangle routines 


In recent years it has become fashionable to visually divide the screen into 
discrete data display areas. These areas are most often distinguished by 
having them placed within a boxed rectangle. Boxed rectangles visually 
appear the same as windows. 

For the programmer, however, there are differences between rectan- 
gles and windows. In this book, rectangles are placed in a screen area 
where its origin (row O, column O) is set to the upper left-hand corner 
boundary of the screen. Whereas windows (see chapter 7) can be thought 
of as mini-screens. When you write to a window its origin (row O, column 
QO) is the upper left-hand corner of the window border. 

Operations on rectangles occur in what might be called a global coor- 
dinate system. Operations on windows occur in what might be called a 
local coordinate system. For a majority of programmers operating in the 
local coordinate systems of windows is preferable to the global coordinate 
system of rectangles. 

Because the global coordinate system of rectangles is conceptually 
easier to grasp for most, rectangles are presented in chapter 6 and win- 
dows in chapter 7. 


Preparing RECT structures 


Function setRect(...) initializes a pointer to and allocates memory required by 
a RECT structure (see chapter 2, TSTRUCT.-H, for more information on the 
RECT structure). SETRECT.C, shown in FIG. 6-1, is the source code to the 
setRect(...) function. Compile SETRECT.C and add the resultant SETRECT 
-OBJ object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 
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6-1 The source code listing to SETRECT.C. 


CULL 
// 


// setrect.c 

// 

// Description: . 

// Set rectangular RECT structure 
// used by the rectangle functions. 


// 

// R = setRect(R,ulr,ulc,lrr,tre); 
// 

// R = RECT * 

// ulr = upper left corner row (int) 


// ulc = upper left corner column (int) 


// \rr = lower right corner row Cint) 
// \re = lower right corner column (int) 
// 


// include files here 


#include <malloc.h> 
#include <string.h> 
#include <tproto.h> 


RECT 

* fastcall setRect(R,ur,uc,lr,lc) 
RECT *R> 

int ur,uc,(r,lc; 

{ 

int size; 


// set pointer to structure 
R = (RECT *)malloc(sizeof(RECT)); 


// set RECT upper left curner and lower right 
// corner values 


R->ul_row = ur; 
R->ul_col = uc; 
R->lr_row = lr; 
R->lr_col = le; 


// calculate the saize of the rectangle 

size = sizeRect(R); 

// set pointer to screen image 

R->image = (unsigned int *)calloc(size,sizeof(int)); 
// return pointer 


return(R); 
} 
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Function sizeRect(...), an internal function, returns the area of internal 
memory that must be allocated for holding the screen image under the rec- 
tangle. SIZERECT.C, shown in FIG. 6-2, is the source code to the sizeRect(...) 
function. Compile SIZERECT:.C and add the resultant SIZERECT.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


6-2 The source code listing to SIZERECT.C. 


SULISTITTTTT TTT TTT 
I 


// sizerect.c 

tI 

// Description: 

// Returns value which reflects amount 

// of 16 bit memory to reserve for screen 
// save and restore operations. 


// 

// size = seizRect(R); 

// 

// size = size of screen image in ints (int) 
// R = RECT * 

// 


// include files here 
#include <malloc.h> 
#include <tproto.h> 


unsigned int 

_fastcall sizeRect(R) 

RECT *R; 

{ 

int height,width,size; 

// claculate rectangle height 
height = R->lr_row - R->ul_row; 
// calculate rectnagle width 
width = R->lr_col-R->ul_col; 

// += 1 for safety 


++theight; 
++width; 


// area = widcth * height 
size = height * width; 
// return calculated area value 


return( size ); 
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PROG25.C, shown in FIG. 6-4, demonstrates the use of functions 
setRect(...) and sizeRect(...). 


Clearing screen rectangles 


Function clrRect(...) clears a rectangular screen area as has been described 
by the pointer to a RECT structure returned in a previously called setRect 
(...) function. The normal (White Foreground, Black Background, Off Inten- 
sity, Off Blink - 7) attribute is used by function clrRect(...)}.§ CLRRECT.C, 
shown in FIG. 6-3, is the source code to the clrRect(...) function. Compile 
CLRRECT.C and add the resultant CLRRECT.OBJ object modules to your 
TABS.LIB, TABM.LIB, and TABL.LIB files. 


6-3 The source code listing to CLRRECT.C. 
SITUA AAA ATT 


// clrrect.c 

If 

// Description: 

// Clears rectangle with normal 
// attribute (7) 

// 

// void clrRect(R); 


// R = RECT * 
// 


// include files here 

#include <tproto.h> 

void 

_fastcall clrRect(R) 

RECT *R; 

{ 

register int row; 

register int column; 

int row_stop, col_stop; 

int token; 

// create ' ' and normal attribute token 
token = (unsigned int)! '+(7*256); 

// calculate rectangle looping limits 


row_stop = R->\r_row; 
col_stop = R->\Ir_col; 


// clear by row 
for(row=R->ul_row; row<row_stop; rowt+) 


// clear by column 
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6-3 Continued. 
for(column=R->ul_col; column<col_stop; column++) 
// clear screen char 


vdChar (row, column, token); 


PROG25.C, shown in FIG. 6-4, demonstrates the use of functions clr 
Rect(...), setRect(...), and sizeRect(...). Compile PROG25.C and link the resultant 
PROG25.OBJ object module to your TABS.LIB file. Running PROG25.EXE 
demonstrates how to clear a rectangular region of the screen using the nor- 


mal (7) attribute. 


6-4 The source code listing to PROG25.C. 


LISILILITLTTTTLD TTT ATTA 
// 
// prog25.c 
// 
// Description: 
// Demonstrated the use of functions 
// setRect(...), sizeRect(...), and 
// clrRect(...). 
// 
// include files here 
#include <tproto.h> 
// declare global variables 
RECT *R; 
void 
main) 
{ 
int row, col; 
// initialize TAB video routines 
vidinit(); 
// set RECT * 
R = setRect(R,3,10,15,50); 
// fill the screen with dots 
for(row=0; row<25; row++) 
for(col=0; col<80; col++) 


vdChar(row,col,mkToken('.',7)); 


// clear a rectangle 
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6-4 Continued. 
clrRect(R); 

// wait for a key press 
gtKey(); 

} 


Filling screen rectangles 


Function fillRect(...) fills the rectangular screen region described by a 
pointer to a RECT structure with a specified screen token. FILLRECT.C, 
shown in FIG. 6-5, is the source code to the fillRect(...) function. Compile 
FILLRECT.C and add the resultant FILLRECT.OBJ object module to your 
TABS.LIB, TABM.LIB, and TABL.LIB files. 


6-5 The source code listing to FILLRECT.C. 
VILTATTLT LTT TTT ALATA AA TT 


If 

// fillrect.c 

If 

// Description: 

// Fills rectangle with screen 
// token 

// 

// void fillRect(R, token); 

// 

// R = RECT * 

// token = screen attr and char (int) 


If 
UU 
#include <tproto.h> 

void 

_fastcall fillRect(RECT *R,int token) 

{ 

register int row; 

register int column; 

int row_stop, col_stop; 


// set limits for loops 


row_stop = R->\r_row; 
col_stop = R->Ilr_col; 


// write screen token by row 
forCrow=R->ul_row; row<row_stop; rowt+) 


// write screen token by column 
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6-5 Continued. 


for(column=R->ul_col; column<col_stop; column++) 
// write the token 


vdChar (row, column, token); 


PROG26.C, shown in FIG. 6-6, demonstrates function fillRect(...). Com- 
pile PROG26.C and link the resultant PROG26.OBJ object module with 
your TABS.LIB file. Running PROG26.EXE shows how to print the ‘.’ char- 
acter in every space on the screen and then display a rectangle using a dif- 
ferent screen attribute. Note the use of the functions mkToken(...) and 
mkAttr(...) in creating the screen token that is used by function fillRect(...). 


6-6 The source code listing to PROG26.C. 


SULLVTTIATTLT TTT TTT TTT 
// 

// prog26.c 

// 

// Description: 

// Demonstrated the use of function 
// fillRect(...) 

// 

// include files here 

#include <tproto.h> 

// declare global variables 

RECT *R; 


void 
main() 


int row, col; 

// initialize TAB video routines 
vidinit(); 

// set RECT * 

R = setRect(R,3,10,15,50); 

// fill the screen with dots 
for(row=0; row<25; row++) 


for(col=0: col<80; col++) 
vdChar(row,col ,mkToken('.',7)); 
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6-6 Continued. 
// fill a rectangle 
fillRect(R,mkToken('.',mkAttr(RED, 
WHITE, 
OFF_INTENSITY, 
OFF_BLINK))); 
// wait for a key press 


gtKey(); 
) 


Putting a border on screen rectangles 


Function boxRect(...) clears a rectangular area using a specified screen 
attribute and prints a box border using that attribute. Your four border 
choices as described in the TSTRUCT.H (see chapter 2, TSTRUCT.H) are: 


Border Style Top Bottom Left Right 


S_S_S_S Single Single Single Single 
S_S_D_D Single Single Double Double 
D_D_S_S Double Double Single Single 
D_D_D_D Double Double Double Double 


BOXRECT.C, shown in FIG. 6-7, is the source code to the boxRect(...) func- 
tion. Compile BOXRECT.C and add the resultant BOXRECT.OBJ object 
modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


6-7 The source code listing to BOXRECT.C. 
LL 
// 


// boxrect.c 

// 

// Desctription: 

// Clears a rectangle with a designated 
// attribute and surrounds this rectangle 
// with a designated border attriibute. 


// 

// void boxRect(R,border, attr); 
// 

// R = RECT * 


// border = border value S_S S S,D_D_DD,etc (int) 
// attr = screen attribute (int) 

// 

// include files here 


#include <stdio.h> 
#include <tproto.h> 
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6-7 Continued. 


static char xwb blank[(80) = ¢ 
32,32,32,32,32,32,32, 
32,32,32,32,32,32,32, 
32 ,32,32,32,32,32,32, 
32,32,32,32,32,32,32, 
32,32,32,32,32,32,32, 
32,32,32,52,32,32,32, 
32 ,32,32,32,32,32,32, 
32 ,32,32,32,32,32,32, 
32,32,32,32,32,32,352, 
32,32,32,32,32,32,32 }; 


void 

_fastcall boxRect(R,border,attr1) 
RECT *R> 

int border; 

int attri; 

{ 

int row,colum; 

int token; 

int top bot, left_right,ul,ur,lt,lr; 


// choose border characters 


switch(border ) 

{ 

case 1: 
top_bot = 196; 
left_right = 186; 
ul = 214; 
ur = 183; 
Ll = 211; 
lr = 189; 
break; 

case 2: 
top_bot = 205; 
left_right = 179; 
ul = 213; 
ur = 184; 
ll = 212; 
lr = 190; 
break; 

case 3: 
top_bot = 205; 
left_right = 186; 
ul = 201; 
ur = 187; 
Ll = 200; 
lr = 188: 
break; 

default: 
top_bot = 196; 
left_right = 179; 


ul = 218; 
ur = 191; 
ll = 192: 
lr = 217; 
break; 
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6-7 Continued. 

// create screen token to clear rectangle 
token = mkToken((int)' ',attr1); 

// clear rectnagle by row 


forCrow=R->ul_row; row<R->lr_row; row++) 
vdWrite(row,R->ul_col,R->lr_col - R->ul_col,xwb_blank,attr1); 


// draw top and bottom 

for(column=R->ul_col; column<R->lr_col-1; ++column) 
Thies eoacslan aaa 
gree uenewe iprerpeiny oP iersraraagogne Co 

// draw left and right borders 

forCrow=R->ul_row; row<R->(r_row-1; ++row) 
Sicheciccesnesulics erence nah AERO): 
Bene eves enor serene ens tceoy ee rag? 

// plop the four corners 

vdChar(R->ul_row,R->ul_col ,mkToken(ul,attr1)); 

vdChar(R->ul_row,R->lr_col-1,mkToken(ur,attr1)); 

vdChar(R->lr_row-1,R->ul_col ,mkToken(ll,attr1)); 

vdChar(R->(r_row-1,R->lr_col-1,mkToken(lr,attr1)); 


) 


PROG27.C, shown in FIG. 6-8, demonstrates function boxRect(...). Com- 
pile PROG27.C and link the resultant PROG27.OBJ object module with 
your TABS.LIB file. Running PROG27.EXE displays all the box (or border) 
styles supported by your Microsoft C 6.0 TAB libraries. 


6-8 The source code listing to PROG27.C. 


FILTTLITLTTTTT LLL T LTT TTT TT 


// 

// prog27.c 

lf 

// Description: 

// Demonstrated the use of function 
// boxRect(...) 

If 


// include files here 
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6-8 Continued. 
#include <tproto.h> 


// declare global variables 


RECT *R1; 
RECT *Re; 
RECT *R3; 
RECT *R4; 


void 

main) 

{ 

int row, col; 

// initialize TAB video routines 
vidiInit(); 


// set RECT * 


R1 = setRect(R1,3,5,9,40); 
R2 = setRect(R2,3,50,9, 75); 
R3 = setRect(R3,12,5,20,40); 
R4 = 


setRect(R4,12,50,20, 75); 
// fill the screen with dots 


for(row=0; row<25; row++) 
for(col=0; col<80; col++) 
vdChar(row,col ,mkToken('.',7)); 


// box R1 rectangle 


boxRect(R1,S_S S_S,mkAttr(RED, 
BLUE, 
ON_INTENSITY, 


OFF_BLINK)); 
// write border style 


vdWrite(R1->ul_row+t2,R1->ul_col+4,0,"S_S S_S border",7); 


// box R2 rectangle 


boxRect(R2,S_S D_D,mkAttr(RED, 
WHITE, | 
ON_INTENSITY, 
OFF_BLINK)); 


// write border style 


vdWrite(R2->ul_rowt2,R2->ul_col+4,0,"S_S D_D border", 7); 


// box R3 rectangle 


boxRect(R3,D_D_S S,mkAttr(RED, 
GREEN, 
ON_INTENSITY, 
OFF_BLINK)); 
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6-8 Continued. 

// write border style 
vdWrite(R3->ul_rowt+2,R3->ul_col+4,0,"D_D_S S border",7); 
// box R4 rectangle 


boxRect(R4,D_D_D_D,mkAttr(RED, 
MAGENTA, 
ON_INTENSITY, 
OFF_BLINK)); 


// write border style 
vdWrite(R4->ul_row+2,R4->ul_col+4,0,"D_D_D_D border", 7); 
// wait for a key press 

gtKey(); 

} 


Saving and restoring screen rectangle images 


Functions saveRect(...) and restRect(...) permit you to save the screen image 
below the rectangle, and restore that screen image, respectively. These 
functions will prove invaluable when writing and removing overlapping 
boxes. Remember, when writing overlapping boxes you must treat their 
placement and removal in the standard stack fashion: last box written, 
first box removed. 

SAVERECT.C, shown in FIG. 6-9, is the source code to the saveRect(...) 
function. Compile SAVERECT.C and add the resultant SAVERECT.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


6-9 The source code listing to SAVERECT.C. 


SIVTLTTLLLAT LTDA TTT ATT TTT TTT 
// 


// saverect.c 

// 

// Description: 

// Save rectangle screen region described 
// by RECT structure. 


// 

// void saveRect(R); 
// 

// R = RECT * 

// 


// include files here 


#include <tproto.h> 
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6-9 Continued. 


void 

_fastcall saveRect(R) 
RECT *R: 

{ 

unsigned int *iptr; 
register int row; 
register int column; 


// set pointer to malloc opened with setRect 
iptr = (unsigned int *)R->image; 
// save image to memory by row 
for(row=R->ul_row; row<=R->lr_row; rowt++) 
// save image to memory by column 
for(column=R->ul_col; column<=R->lr_col; column++) 
// place image token by token in malloc 


*iptr++ = vrdChar(row,column); 


RESTRECT.C, shown in FIG. 6-10, is the source code to the restRect(...) 
function. Compile RESTRECT.C and add the resultant RESTRECT.OBJ 
object module to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


6-10 The source code listing to RESTRECT.C. 


SITTTLLITLLLTTLTT TATA TTT TS 


// restrect.c 

If 

// Description: 

// Restore rectangular screen image 
// previously saved by saveRect. 

If 

// void restRect(R); 


// 
// R = RECT * 
// 


// include files here 


#include <tproto.h> 


void 

_fastcall restRect(R) 
RECT *R; 

{ 

unsigned int *iptr; 
register int row; 
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6-10 Continued. 
register int column; 
// set pointer to image data 
iptr =(unsigned int *) R->image; 
// restore image by row 
for(row=R->ul_row; row<=R->(lr_row; row++) 
// restore image by column 
for(column=R->ul_col; column<=R->lr_col; column++) 
// restore image by token 


vdChar (row, column, *iptr++); 


PROG28.C, shown in FIG. 6-11, demonstrates the use of functions 
saveRect(...) and restRect(..... Compile PROG28.C and link the PROG28.OBJ 
object module with your TABS.LIB file. Running PROG28.EXE shows how 
to create overlapping boxed rectangles. These boxed rectangles are written 
to the screen and removed in very rapid fashion. 


6-11. The source code listing to PROG28.C. 


VIVILLTTTLTTTTTLLT TTT TTT TTT TT 
// 


// prog28.c 

// 

// Description: 

// Demonstrated the use of function 
// saveRect(...), restRect(...) In an 
// overlapping rectangle situation 

// 


// include files here 
#include <tproto.h> 
// declare global variables 


RECT *R; 

RECT *R1; 
RECT *R2: 
RECT *R3; 
RECT *R4; 
RECT *R5; 


void 


main() 
€ 
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6-11 Continued. 

int row, col; 

// initialize TAB video routines 
vidiInit(); 

// set RECT * 


R = setRect(R,3,10,15,50); 


R1 = setRect(R2,3+(2*1),10+(4*1), 15+(2*1) ,50+(4*1)); 
R2 = setRect(R2,3+(2*2), 10+(4*2), 15+(2*2) ,50+(4*2)); 
R3 = setRect(R2,3+(2*3), 10+(4*35), 15+(2*3) ,50+(4*3)); 
R4 = setRect(R2,3+(2*4) , 10+(4*4) , 15+(2*4) ,50+(4*4)); 
R5 = setRect(R2,3+(2*5), 10+(4*5), 15+(2*5) ,50+(4*5)); 


/ save the rectangular screen image 
saveRect(R); 


// box a rectangle R 


boxRect(R,D_D_D_D,mkAttr(RED, 
BLUE, 
ON_INTENSITY, 
OFF_BLINK)); 


// write message in rectangle 


vdWrite(R->ul_row+2, 

R->ul_col+2, 

0, 

"Press any key to continue...", 

mkAttr(WHITE, 
GREEN, 
ON_INTENSITY, 
OFF_BLINK)); 


// box a rectangle R1 


saveRect(R1); 
boxRect(R1,D_D_D_D,mkAttr(RED, 
WHITE, 
ON_INTENSITY, 
OFF_BLINK)); 


// write message in rectangle 


vdWrite(R1->ul_row+2, 
R1->ul_col+2, 
0, 
"Press any key to continue...", 
mkAttr(WHITE, 


GREEN, 


ON_INTENSITY, 
OFF_BLINK)); 
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6-11 Continued. 


// box a rectangle R2 
saveRect(R2); 


boxRect(R2,D_D_D_D,mkAttr(RED, 
GREEN, 
ON_INTENSITY, 
OFF_BLINK)); 


// write message in rectangle 


vdWrite(R2->ul_row+2, 

R2->ul_col+2, 

0, 

"Press any key to continue...", 

mkAttr(WHITE, 
GREEN, 
ON_INTENSITY, 
OFF_BLINK)); 


// box a rectangle R3 
saveRect(R3); 


boxRect(R3,D_D_D_D,mkAttr(RED, 
MAGENTA, 
ON_INTENSITY, 
OFF_BLINK)); 


// write message in rectangle 


vdWrite(R3->ul_row+2, 

R3->ul_col+2, 

0, 

"Press any key to continue...", 

mkAttr(WHITE, 
GREEN, 
ON_INTENSITY, 
OFF_BLINK)); 


// box a rectangle R4 
saveRect(R4); 


boxRect(R4,D_D_D D,mkAttr(BLUE, 
WHITE, 
ON_INTENSITY, 
OFF_BLINK)); 


// write message in rectangle 


vdWrite(R4->ul_row+2, 
R4->ul_col+2, 
0 
"Press any key to continue...", 
mkAttr(WHITE, 
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6-11 Continued. 


GREEN, 
ON_INTENSITY, 
OFF_BLINK)); 


// box a rectangle R5 
saveRect(R5); 


boxRect(R5,D0_D_D_D,mkAttr(WHITE, 
RED, 
ON_INTENSITY, 
OFF_BLINK)); 


// write message in rectangle 


vdWrite(R5->ul_row+2, 
R5->ul_col+2, 


a 


"Press any key to continue...", 
mkAttr(WHITE, 
GREEN, 
ON_INTENSITY, 
OFF_BLINK)); 


// wait for a key press 
gtKey(); 
// restore screen image under rectangle 


restRect(R5); 
restRect(R4); 
restRect(R3); 
restRect(R2); 
restRect(R1); 
restRect(R); 


} 


Summary 


In this chapter you learned how to clear a rectangular region of the screen 
using function clrRect(...). Function fillRect(.... was used to fill a rectangular 
region of the screen with a screen token (8-bit char and 8-bit attribute = 
16-bit token). Function boxRect(...) was used to clear a rectangular region of 
the screen with a specified screen attribute. This rectangular region of the 
screen was emphasized by a single- or double-lined border. Finally you 
learned how to save the rectangular region of the screen under the rectan- 
gle and later restore that region of the screen. Figure 6-12 presents the 
library contents listing to TABS.LIB. 
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6-12 The library contents listing to TABS.LIB. 


QD ECD: iis i ss ceae v's 
QCL PREC. se ececccs 


@SSizeCur..cssccee 
@vrdChar.cccccsces 
SCP tiewases bwiaaiees 
_defkey2......ee0. 
_defkey4...... eee 


_get_jiffmin...... i 


_g_shape..... wewee 


“of fSound...seeees 
_remove_timer..... 


_Stop_timer....... 
VGAttP.ccccncccee 
_VGHOriZ..ccecuee 


_VID_PORT.....0 


mvcur 
_mvCur 


timer 
_addi jiff 
_get_ljiffy 
_remove_timer 


gtcur 
agtCur 


rmvcur 
armvCur 


scloc 
asCloc 


rcloc 
arCloc 


oncur 
aoncur 


s_shape 
_S_shape 


g_shape 
_g_shape 


bleep 
clrrect 


ssizecur 
vrdchar 
vidinit 
vdedit 


g_shape 


scrnclr 
vidinit 
timer 
vdattr 


-vdhoriz 


vdwrite 


-Vidinit 


Offset: 00000010H Code and data 


Offset: OOOOO0O0bOH Code and data 


_get_jiffhour 


_initialize_timer 


_reset_timer 


Offset: 00000390H Code and data 


Offset: 000004a0H 


Offset: 000005e0H 


Offset: 00000710H 


Offset: 00000830H 


Offset: 00000950H 


Offset: O00009f0H 


176 Foundation rectangle routines 


@boxRect....cceees boxrect 
@delay....cscceees delay 
QQCCUP ose se sede gtcur 
@Of FOU wedece ede offcur 
Or ClOC. cs. 5.seede8 rcloc 
@restScrn...ccccees restscrn 
@rsizeCur..ceccess ssizecur 
OSAaVESCHN. .eeccves savescrn 
AsetRect....cccees setrect 
MSIZERECt..cccees sizerect 
@VGEdit...cecccces vdedit 
addijiff.. cesses timer 
defkey1....ssseee vdedit 
_defkey3....cccee. vdedit 
_get_jiffhour..... timer 
_get_jiffy........ timer 
_QtKBstat......... gtkbstat 
_initialize_timer..timer 
_MkKToken...ceceeee mk token 
_Newtimer......e0. timer 
_ONSouNd....eceees onsound 
_reset_timer...... timer 
_SCRNSEG......e0ee vidinit 
_Start_timer...... timer 
_S_Shape.....csee. s_shape 
VEC Ol oecewies ose vdchar 
_VAVErt..ccceccees vdvert 
MIGINI Ci ies ncsiees vidinit 
size: 15H 
size: eOH 
_get_jiffmin _get_jiffy 
_newtimer 
_Start_timer _stop_timer 
size: 2cH 
Code and data size: 30H 
Code and data size: 26H 
Code and data size: 10H 
Code and data size: eH 
Code and data size: cH 
Code and data size: 7H 
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offcur 
dof fCur 


sizecur 
asizeCur 


ssizecur 
arsizeCur 


mktoken 
_mkToken 


mkattr 
_mkAttr 


sernclr 
_sernclr 


vidinit 
_ert 
~VID_PORT 


vdchar 
_vdChar 


vdwrite 
_vdWrite 


vdhor iz 
_vdHoriz 


vdvert 
_vdVert 


vdattr 
_vdAttr 


vrdchar 
avrdcChar 


savescrn 
asaveScrn 


restscrn 
arestScrn 


delay 
ade l ay 


bleep 
abl eep 


gtkey 
agtKey 


vdedit 
avdEdit 
_defkey4 


Offset: 00000a80H 
Offset: 00000ba0H 
Offset: O0000cb0H 
assizeCur 
Offset: OO000dfOH 
Offset: 00000e90H 


Offset: OO000f30H 


Offset: O0000fd0H 
_SCRNSEG 


Offset: 000011a0H 


Offset: 00001270H 


Offset: 00001350H 


Offset: 00001420H 


Offset: O00014fOH 


Offset: 000015c0H 


Offset: 00001700H 


Offset: 00001860H 


Offset: 000019d0H 


Offset: 00001af0H 


Offset: 00001c30H 


Offset: 00001d30H 
_defkey1 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


size: eH 


size: lal 


size: 26H 


size: bH 


size: 17H 


size: 1aH 


Code and data size: 71H 


_SPARKLE_FLAG 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


_defkey2 


Summary 


_vidinit 


size: 27H 


size: 42H 


size: 2cH 


size: 32H 


size: 2eH 


size: 3cH 


size: 44H 


size: 46H 


size: 32H 


size: 2eH 


size: 14H 


size: 75aH 


_defkey3 


177 


6-12 Continued. 


onsound 
_onSound 


of fsound 
_of fSound 


gtkbstat 
_gtKBstat 


fillrect 
afillRect 


setrect 
asetRect 


sizerect 
asizeRect 


clrrect 
aclrRect 


boxrect 
aboxRect 


saverect 
@saveRect 


restrect 
arestRect 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


00002780H 


00002820H 


000028b0H 


00002950H 


00002aa0H 


00002c10H 


00002d10H 


00002e60H 


00003200H 


00003350H 
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Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 
ee data 
and data 
and data 
and data 
and data 
and data 
and data 
and data 


and data 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


18H 


7H 


11H 


42H 


50H 


10H 


46H 


238H 


42H 


42H 


/ 


Fundamental 
window-creation functions 


This source-code-laden chapter contains twenty-five source files and two 
window-creation demonstration programs. I decided to present only two 
demonstration programs as opposed to a demonstration program for each 
function because the window-creation functions combine in a synergistic 
fashion. Some of the routines are internal to the TAB library and other rou- 
tines may be called by you. 

The two demonstration programs (PROG29 and PROGS3O) are heavily 
documented and have been designed so that you can use the window-gener- 
ation functions to create your own user interfaces. PROG29.C (presented in 
FIG. 7-26) demonstrates how to display a simple text window. This simple 
text window contains a border and window title. Feel free to use PROG29.C 
as a template for simple window applications. 

PROG30.C (presented in FIG. 7-27) is a much more complex example. It 
shows you how to display a vertical scroll-bar window, a Lotus-style win- 
dow, and a grid-style window. The vertical scroll-bar window, Lotus-style 
window, and grid-style window have all been heavily documented so that 
you may use those functions as templates for your own user interface 
designs. 

By examining the source code to PROG29.C and PROGS3O.C you’ll 
quickly see that each window is displayed in the same fashion. The pat- 
tern of function calls in the window-display sequence is basically the same 
in all the window styles. The syntax for pertinent functions also becomes 
self evident when exploring PROG29.C and PROGSO.C. 
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putChr(...) Function putChr(...) puts a character to the screen at the current 
cursor location. The cursor position is not updated and the screen attri- 
bute is not changed. PUTCHR.C, shown in FIG. 7-1, is the source code to 
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7-1 The source code listing to PUTCHR.C. 
jf OOO RHA CMO aun 
/ 


// putchr.c 

If 

// 

// void putChr(char) 

Sf 

// Description: 

// Puts a character to the page 0 screen 
// at the current cursor location. 
// Cursor location doesn't change. 
// 

// 


#include <tproto.h> 
#include <dos.h> 


void 
_fastcall putChr(char c_val) 
{ 


// inline assembler here 


asm 
{ 
mov BH,0O ; on page 0 
mov CX, 1 3; write 1 char 
mov AH, OAh ; write char functions 
mov AL,c_val ; char => AL 
int 10h ; write char via BIOS 
} 

} 


bute is not changed. PUTCHR.C, shown in FIG. 7-1, is the source code to 
the putChr(...) function. Compile PUTCHR.C and add the PUTCHR.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


putCRLF(...) Function putCRLF(...) moves the cursor down one row and to 
the left-hand edge of the screen (column 0). PUTCRLF.ASM, shown in FIG. 
7-2, is the source code to putCRLF(...). Assemble PUTCRLF.ASM and add the 
resultant PUTCRLF.OBJ object modules to your TABS.LIB, TABM.LIB, 
and TABL.LIB files. 


7-2 The source code listing to PUTCRLF.ASM. 


SIITLLTTITT TTT T TTT TTT TT 


Sf 
:// putcrlf.asm 
i// 
s// 
s// putCRLF(); 
iI 
i// 
:// Description: 
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7-2 Continued. 
:// Prints CR & LF to screen 


DOSSEG 


if mdl eq 1 
.MODEL SMALL,C 
elseif mdl eq 2 
-MODEL MEDIUM,C 


else 
«MODEL LARGE,C 
endi f 
. CODE 
putCRLF PROC 
mov AH,2 
mov DL,13 
int 21H 
mov DL, 10 
int 21H 
ret 
putCRLF ENDP 
END 


putStr(...) Function putStr(...) writes a string to the screen via the BIOS 
starting at the current cursor location. PUTSTR.C, shown in FIG. 7-3, is the 
source code to the putStr(...) function. Compile PUTSTR.C and add the re- 
sultant PUTSTR.OBJ object modules to your TABS.LIB, TABM.LIB, and 
TABL.LIB files. 


7-3 The source code listing to PUTSTR.C. 


CUCU 
// | 


// putStr.c 

// 

// Put a string to screen at current 
// cursor location - retain attribute 
// & no wrap 


SILTVTTITLTTT AT ATTATLTAALAAAA 
#include <tproto.h> 


void 

_fastcall putStr(string) 
char *string; 

{ 

int row,colum:; 
gtCur(&row, &column)>; 
while(*string! =aNUL) 


{ 
putChr(*string++); 
mvCur (row, ++column); 
> 

> 
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wrimg(...) Function wrlmg(...) is an internal window function that writes a 
previously saved rectangular image to the screen. WRIMG.C, shown in FIG. 
7-4, is the source code to the wrlmg(...) function. Compile WRIMG.C and add 
the resultant WRIMG.OBJ object modules to your TABS.LIB, TABM.LIB, 
and TABL.LIB files. 


7-4 The source code listing to WRIMG.C. 


SILTLTSTLTTAA TATA TT 

// 

// wrimg.c 

// 

// Description: 

// Transfers a rectangular region of the screen 
// to buffer and blanks the area. (internal 
// window routine) 

// 

// include files here 

#include <stdio.h> 

#include <tproto.h> 


void 
_fastcall wrimg(WIND *W) 
eee int row,column; 
unsigned int *img ptr; 
// set bointer to buffer 
img_ptr = (unsigned int *)W->img_ptr; 
// restore image by row 
for(row=W->ul_row; row<=W->lr_row; rowt+) 
// restore image by column 
for¢ column=W->ul_col; column<=W->lr_col; column++) 
// write screen token 
vdChar(row,column,*img_ptr); 


// adjust pointer 


img_ptr++; 
} 
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wrBox(...) Function wrBox(...), an internal TAB window library function, 
writes a rectangular border as described by the WIND structure to the 
screen. WRBOX.C, shown in FIG. 7-5, is the source code to the wrBox(...) 
function. Compile WRBOX.C and add the resultant WRBOX.OBJ object 
modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-5 The source code listing to WRBOX.C. 


CULL 
// 


// wrbox.c 

// 

// Description: 

// Write a box to screen with a single 

// tine border. (internal window function) 
// 


// include files here 


#include <stdio.h> 
#include <tproto.h> 


static char wb_blank[80] = ¢ 
32 ,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32 }; 


void 
_fastcall wrBox(WIND *W) 
{ 


register int row,colum; 
int token; 
int top bot, left_right,ul,ur,ll,lr; 


// select border (box) style 
switch(W->box_type) 
{ 


case 1: 
top_bot = 196; 
left_right = 186; 
ul = 214; 
ur = 185; 
tl = 211; 
lr = 189; 
break; 


case 2: 
top_bot = 205; 
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7-5 Continued. 
left_right = 179; 


ul = 213; 

ur = 184; 

ll = 212; 

lr = 190; 

break; 
case 3: 


top_bot = 205; 
left_right = 186; 
ul = 201; 

ur = 187; 

ll = 200; 

lr = 188; 

break; 


default: 
top_bot = 196; 
left_right = 179; 


ul = 218; 
ur = 191; 
ll = 192; 
lr = 217; 
break; 


} 

// set window clear video token 

token = mkToken((int)' ',W->attr); 

// clear window by row 

for(row=W->ul_row; row<W->(lr_row; row++) 
// write blanks on row 
vdWriteCrow,W->ul_col,W->lr_col - W->ul_col,wb_blank,W->attr); 

// draw top and bottom borders 

for(column=W->ul_col; column<W->lr_col; ++column) 
// draw top row 
vdChar(W->ul_row,column,mkToken(top_bot,W->attr)); 
// draw bottom row 


vdChar(W->lr_row,column,mkToken(top_ bot,W->attr)); 
) 


// draw left and right borders 
for(row=W->ul_row; row<W->lr_row; ++row) 
{ 
// draw left border 


vdChar(row,W->ul_col ,mkToken(left_right,W->attr)); 
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7-5 Continued. 
// draw right border 


vdChar(row,W->lr_col ,mkToken(left_right,W->attr)); 
> 


// plop the four corners 

// upper left corner character 

vdChar (W->ul_row,W->ul_col ,mkToken(ul ,W->attr)); 
// upper right corner character 

vdChar (W->ul_row,W->lr_col ,mkToken(ur,W->attr)); 
// lower left corner character 
vdChar(W->Lr_row,W->ul_col ,mkToken(ll,W->attr)); 
// \ower right corner character 


vdChar(W->lr_row,W->lr_col ,mkToken(lr,W->attr)); 


wrWind(...) Function wrWind(...), an internal TAB library window function, 
writes a previously saved window image to the screen. WRWIND.C, shown 
in FIG. 7-6, is the source code to the wrWind(...) function. Compile 
WRWIND.C and add the resultant WRWIND.OBJ object modules to your 
TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-6 The source code listing to WRWIND.C. 


SILTTATTTTTTLTT TTT TATA 


// wrwind.c 

// 

// Description: 

// Transfers a rectangular region of the screen 
// to buffer and bianks the area. (internal 

// window routine) 

// 


// include files here 


#include <stdio.h> 
#include <dos.h> 
#include <tproto.h> 


void 

_fastcall wrWind(WIND *W) 
{ 

register int row,colum; 
unsigned int *img_ptr; 
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// set pointer to buffer 


img_ptr = (unsigned int *)W->wind_ptr; 
// restore image by row 
for(row=W->ul_row; row<=W->lr_row; row++) 
iy restore image by colum 
for(¢ column=W->ul_col; column<=W->lr_col; column++) 
// write token from buffer to screen 
vdChar(row,column,*img_ptr); 


// adjust pointer to buffer 


img_ptr++; 
} 


rdimg(...) Function rdimg(...) an internal TAB library window function, 
reads a rectangular image of the screen to dynamically allocated memory. 
RDIMG.C, shown in FIG. 7-7, is the source code to the rdimq(...) function. 
Compile RDIMG.C and add the resultant RDIMG.OBJ object modules to 
your TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-7 The source code listing to RDIMG.C. 


SITTTTTLITTTTLT TTT TST TTT TTT 


// rdimg.c 

// 

// Description: 

// Transfers a rectangular region of the screen 
// to buffer and blanks the area. (internal 

// window function) 

// 


// include files here 
#include <stdio.h> 


#include <dos.h> 
#include <tproto.h> 


void . 
_fastcall rdimg(WIND *W) 
{ 


register int row,column; 
unsigned int *buf_ptr; 
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// set pointer to buffer 


buf_ptr = (unsigned int *)W->img_ptr; 
// relocate screen image to buffer by row 
for(Crow=W->ul_row; row<=W->lr_row; row++) 
// relocate screen image to buffer by column 
for( column=W->ul_col; column<=W->lr_col; column++) 
// relocate screen token to buffer 


*buf_ptr++ = vrdChar(row,column); 


sizelmg(...) Function sizelmg(...), an internal TAB library function, returns 
the buffer size required to hold the window or screen-under-window 
image. SIZEIMG.C, shown in FIG. 7-8, is the source code to the sizelmq(...) 
function. Compile SIZEIMG.C and add the resultant SIZEIMG.OBJ object 


modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-8 The source code listing to SIZEIMG.C. 


UU 

Sf 

// 

// sizeimg.c 

// 

// Description: 

// Returns the pointer to malloc large enough to 

// receive all the screen information for the rectangulat 
// block Cinternal window function) 

// 


// include files here . 
#include <malloc.h> 

#include <tproto.h> 

unsigned int 

_fastcall sizeImg(WIND *W) 

int height,width,size; 

// calculate window height 
height = W->lr_row - W->ul_row; 
// calculate window width 


width = W->lr_col-W->ul_col; 
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7-8 Continued. 
/{/ add 1 to height & width (to prevent blindness) 


++height; 
++width; 


// area = height * width 
size = height * width; 


// return area 
return( size ); 
} 


exit_bad(...) Function exit_bad(...) aborts program execution, prints what 
is usually an error message, and returns control to DOS. Function exit_ 
bad(...) can be useful in debugging your programs. EXIT_BAD.C, shown in 
FIG. 7-9, is the source code to the exit_bad(...) function. Compile EXIT_.BAD.C 
and add the resultant EXIT_BAD.OBJ object modules to your TABS.LIB, 
TABM.LIB, and TABL.LIB files. 


7-9 The source code listing to EXIT_BAD.C. 


SULLLLTTLATA TTT AAT TT 
II 

// exir_bad.c 

If 

// Description: 

// Abort to DOS on error. The error 
// message is passed as a pointer to 
// astring so you will be able to 

// identify the troublesome area. 

// In the window routines function 

// exit_bad(...) is used to check for 
// NULL pointers. 


// include files here 
#include <tproto.h> 


void 

_fastcall exit_bad(char *string) 

{ 

sernclr(); 

putStr(string); 

putCRLF(); 

putCRLF(); 

putStr("Program ABORT -> Return to DOS"); 
exit (0); 

> 
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rdWind(...) Function rdWind(...), an internal TAB library function, reads the 
window image to a dynamically allocated buffer. RDWIND.C, shown in 
FIG. 7-10, is the source code to the rdWind(...) function. Compile RDWIND.C 
and add the resultant RDWIND.OBJ object modules to your TABS.LIB, 
TABM.LIB, and TABL.LIB files. 


7-10 The source code listing to RDWIND.C. 


VILILTTTTTLLT TTA TTT AAA 

/f 

// rdwind.c 

// 

// Description: 

// Transfers a rectangular region of the screen 
// to buffer and blanks the area. (internal 
// window routine) 

// 

// include files here 

#include <stdio.h> 


#include <dos.h> 
#include <tproto.h> 


void 
_fastcall rdWind(WIND *W) 
{ 


register int row,column; 
unsigned int *buf_ptr; 


// set pointer to buffer 
buf_ptr = (unsigned int *)W->wind_ptr; 
// read image by row 
for(row=W->ul_row; row<=W->Lr_row; row++) 
// read image by column 
for¢ column=W->ul_col; column<=W->lr_col; columnt+) 
// screen token to buffer 


*buf_ptr++ = vrdChar(row, column); 


dispWind(...) Function dispWind(...) displays a window that has previously 
been displayed using function strtWind(...), which is shown later in this chap- 
ter (FIG. 7-18). DISPWIND.C, shown in FIG. 7-11, is the source code to the disp 
Wind(...) function. Compile DISPWIND.C and add the resultant DISPWIND 
.OBJ object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 
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7-11. The source code listing to DISPWIND.C. 


SILTLTLTTTTTTT TTT TTT TTT TTT TT 
// 


II 

// dispwind.c 

// 

// Description: 

// Diisplay window which has been previously 
// saved using function remwind(...). 

// 


// include files here 

#include <malloc.h> 

#include <tproto.h> 

void 

_fastcall dispWind(WIND *W) 

a cmecule ites 
read screen image to buffer 
rdimg(W); 
// restore previously saved window image 
wrWind(W); 
// set visible flag to aTRUE 


W->visible = 1; 
> 


remvWind(...) Function remvWind(...) removes a previously displayed win- 
dow with the original screen image which the displayed window overlaid. 
Function remvWind(...) does not destroy the window’s WIND structure. After 
you have removed a displayed window using function remvWind(...) you may 
display the window again by calling function dispWind(...). REMVWIND.C, 
shown in FIG. 7-12, is the source code to the remvWind(...) function. Compile 
REMVWIND.C and add the resultant REMVWIND.OBJ object modules to 
your TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-12 The source code listing to REMVWIND.C. 


SILTTITTTTAST TTT TT 
// 


// remvwind.c 

If 

// Description: 

// Removes displayed window from screen 
// and restores previously saved screen 
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7-12 Continued. 


// image. 
// 


// include files here 


#include <malloc.h> 
#include <tproto.h> 


void 

_fastcall remwWind(WIND *W) 
{ 

if(W->visible) 


{ 
// save window image to buffer 


rdWwind(W); 

// restore previously saved screen image 
wrimg(W):; 

// set window visible flag to aFALSE 


W->visible = 0; 
} 
> 


setTitle(...) Function setTitle(...) tells function strtWind(...) (FIG. 7-18) what title 
should be centered on the top window border. SETTITLE.C, shown in FIG. 
7-13, is the source code to the setTitle(...) function. Compile SETTITLE.C 
and add the resultant SETTITLE.OBJ object modules to your TABS.LIB, 
TABM.LIB, and TABL.LIB files. | 


7-13 The source code listing to SETTITLE.C. 


SITTITETLTTAATALAT 


// 

// settitle.c 

// 

// Descriiption: 

// Print the title to the top of window. 
// 

// 


// include files here 


#include <string.h> 
#include <stdlib.h> 
#include <malloc.h> 
#include <tproto.h> 


void 
_fastcall setTitle(WIND *W,char *top) 


{ 
// set length of title string 
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7-13 Continued. 
W->top length = strlen(top); 


// calculate left offset for center 
// print of window title 


W->top_ offset = ( (W->lr_col-W->ul_col) - W->top_ length )/2; 
W->top_ offset += 1; 


// set pointer to buffer for window title 
W->t_title = (char *)malloc(W->top_length+1); 
// clear window buffer 

memset (W->t_title, '\0',W->top_length+1); 

// copy title string to newly opened buffer 
strcpy(W->t_title, top); 

// set top title flag as aTRUE 


W->show_top=aTRUE; 
> 


setWind(...) Function setWind(...) prepares the WIND structure by dynami- 
cally allocating memory for the window and screen-under-window images 
and setting the global upper left-hand corner of the window’s border and 
the lower right-hand corner of the window’s border. SETWIND.C, shown 
in FIG. 7-14, is the source code to the setWind(...) function. Compile 
SETWIND.C and add the resultant SETWIND.OBJ object modules to your 
TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-14 The source code listing to SETWIND.C. 


SILIPVTTVTT TATTLE A A AT 
// 

// setwind.c 

tf 

// Description: 

// Set Window Dimensions and initialize 
// WIND structure. 

// 

// include files here 

#include <malloc.h> 

#include <tproto.h> 

#define W_SIZE sizeof (WIND) 


static char b_wind_msg[] = "NULL returned in SetWind"; 
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WIND * 


_fastcall setWind(WIND *W,int ul_row,int ul_col,int lr_row,int lr_col) 


{ 
// return pointer to WIND structure 


W = (WIND *)calloc(W_SIZE,sizeof(char)); 
// if NULL pointer returned then exit with message 


if (W==0) 
exit_bad(b_wind_msg); 


// set window dimensions 


W->ul_row = ul_row; 
W->ul_col = ul_col; 
W->lr_row = lr_row; 
W->lr_col = Ir_col; 


// set window screen area size 

W->img_size = sizelmg(W); 

// get pointer to image buffer 

W->img_ptr = (unsigned int *)calloc(W->img_size,sizeof(int)); 
// if NULL pointer returned the exit with message 


if(W->img_ptr==0) 
exit_bad(b_wind_msg); 


// get second image pointer 
W->wind_ptr = (unsigned int *)calloc(W->img_size,sizeof(int)); 
// if NULL pointer returned then exit with message 


if (W->wind_ptr==0) 
exit_bad(b_wind_msg); 


// window not currently displayed 
W->visible=aFALSE; 

// S_S_S_S default box (border) type 
W->box_type=S_S S$ S; 

// default - normal screen attribute 
W->attr=NORMAL ; 

// no top title 

W->t_title=0; 


// no bottom title 
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7-14 Continued. 


W->b title=0; 

// dont show top title 
W->show_top=aFALSE; 

// don't show bottom title 
W->show_bot=aFALSE; 

// return pointer to window 


return(W); 
} 


setBord(...) Function setBord(...) tells function strtWind(...) (FIG. 7-18) the type 
of window border to be drawn. Your options include: 


Top Bottom Left Right 


Single Single Single Single 
Single Single Double Double 
Double Double Single Single 
Double Double Double Double 


SETBORD.C, shown in FIG. 7-15, is the source code to the setBord(...) func- 
tion. Compile SETBORD.C and add the resultant SETBORD.OBJ object 
modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-15 The source code listing to SETBORD.C. 


LULL 
// 

// setbord.c 

// 

// Description: 

// Set window border type. 


// 
// set the border 


i 

//# TBLR 
ie 
170=SSSS 
4712S SDD 
//2=0DSS 
//3=D.DDD 
// 


// include files here 


#include <tproto.h> 
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void 
_fastcall setBord(WIND *W,int type) 


{ 
// set window border type in structure 


W->box_type = type; 
) 


dysWind(...) Function dysWind(...) destroys the WIND structure by freeing 
memory which had been previously allocated when function setWind(...) 
(FIG. 7-14) was called. It is important to know that once a window’s WIND 
structure has been destroyed using function dysWind(...), all window func- 
tions that refer to the destroyed window will fail. The failure will be ugly 
and will most likely lock your machine. Be forewarned. Once a WIND 
structure has been destroyed it may be reinitialized using the WIND’s pre- 
viously held values or a new set of values. DYSWIND.C, shown in FIG. 7-16, 
is the source code to the dysWind(...) function. Compile DYSWIND.C and 
add the resultant DYSWIND.OBJ object module to your TABS.LIB, 


TABM.LIB, and TABL.LIB files. 


7-16 The source code listing to DSYWIND.C. 


TITLLLTTLTTA TITTLE 
If 

// dsywind.c 

// 

// Description: 

// Destroy window structure. 

If 

// include files here 

#include <malloc.h> 


#include <stddef.h> 
#include <tproto.h> 


void 
_fastcall dsyWind(WIND *W) 
y if window structure has NOT been destroyed 
if(W->img_ptr!=NULL) 

// then free memory 

free((char *)W->img_ptr); 
// if window structure has NOT been destroyed 
if (W->wind_ptr!=NULL) 


// then free memory 
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7-16 Continued. 
free((char *)W->wind_ptr); 


// if window structure has NOT been destroyed 
if (W!=NULL) 
// then free memory 


free(W); 
> 


setAttr(...) Function setAttr(...) tells function strtWind(...) (FIG. 7-18) what 
screen attribute to use when initially displaying the window. Of course, 
you are not limited to one screen attribute when displaying a window. You 
may alter any window character’s attribute by using functions wvaAttr(...) 
(FIG. 7-19), wvdWrite(...) (FIG. 7-24), and wvdChar(...) (FIG. 7-20). SETATTR.C, 
shown in FIG. 7-17, is the source code to the setAttr(...) function. Compile 
SETATTR.C and add the resultant SETATTR.OBJ object modules to your 
TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-17 The source code listing to SETATTR.C. 


SILTLTILLTT DLT TTD TTT TTT 
I 


// setattr.c 

// 

// Description: 

// Set the window attribute. 
// 


// include files here 

#include <tproto.h> 

void 

_fastcall setAttr(WIND *R,int attr) 
// set attribute in window structure 


R->attr = attr; 


strtWind(...) Function strtWind(...) should be used when displaying a win- 
dow for the first time only. This function saves the screen-under-window 
image, clears the window screen area using the window’s screen attribute, 
draws the window’s border, and writes the window’s title. STRTWIND.C, 
shown in FIG. 7-18, is the source code to the strtWind(...) function. Compile 
STRTWIND.C and add the resultant STRTWIND.OBJ object modules to 
your TABS.LIB, TABM.LIB, and TABL.LIB files. 
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7-18 The source code listing to STRTWIND.C. 


SILUTTITTTTTT TTT TAA 

/ 

// strtwind.c 

// 

// Description: 

// Called when displaying window 

// for the first time. The WIND structure 

// MUST be set before this function is called. 
// 


// include files here 
#include <malloc.h> 


#include <ascii.h> 
#include <tproto.h> 


void 

_fastcall strtWind(WIND *W) 

{ 

char *tptr,*bptr; 

// set pointers to window top and bottom titles 


tptr = W->t_title; 
bptr = W->b title; 


// read screen image to memory 

rdimg(W); 

// overlay blank window with border 

wrBox(W); 

// read window image to memory 

rdWind(W); 

// if Set window visible flag to aTRUE 

W->visible = 1; 

// if top title specified 

if (W->show_top) 
// write top window title to center of top border 
wvdWrite(W,0,W->top offset,W->top length, tptr,W->attr); 


) 


wvdAttr(...) Function wvdAttr(...) permits you to alter the display attributes 
for a string of screen characters without altering those characters. Func- 
tion wvdAttr(...) will prove highly useful when writing item selection rou- 
tines. WVDATTR.C, show in FIG. 7-19, is the source code to the wvdAttr(...) 
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function. Compile WVDATTR.C and add the resultant WVDATTR.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-19 The source code listing to WVDATTR.C. 


SULTTITTAT TTT T LTT TTT TTT TT 


// 

// wdattr.c 

// 

// Description: 

// Change attributes on window row. 
tf 


// include files here 


#include <stdio.h> 
#include <tproto.h> 


void 
_fastcall wvdAttr(WIND *W,int row,int col,int length, int attr) 
{ 


// calculate global row and col values 


row += W->ul_row; 
col += W->ul_col; 


// change video attribute string 
vdAttr(row,col, length, attr); 


) 


wvdChar(...) Function wvdChar(...) writes a screen token to the window ata 
specified window row and column location. The window’s row=O and 
column =O location refers to the upper left-hand border character of the 
window. This has purposely been done in case you wish to alter any win- 
dow border character for a special effect. WVDCHAR.C, shown in FIG. 7-20, 
is the source code to the wvdChar(...) function. Compile WVDCHAR.C and 
add the resultant WVDCHAR.OBJ object modules to your TABS.LIB, 
TABM.LIB, and TABL.LIB files. 


7-20 The source code listing to WVDCHAR.C. 


CULL 
// 


// wdchar .c 

// 

// Description: 

// Print token to screen at 

// specified row and column location 
ti 
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7-20 Continued. 
// Include files here 


#include <stdio.h> 
#include <tproto.h> 


void 
_fastcall wvdChar(WIND *W,int row,int col,int token) 


{ 
// convert local window coordinates 
// to global screen coordinates 


row += W->ul_row; 
col += W->ul_col; 


// write token to screen 


vdChar (row, col, token); 
> 


wvdHoriz(...) Function wvdHoriz(...) permits you to draw a single-bar hori- 
zontal line at a specified row and column window location using a desig- 
nated screen attribute. WVDHORIZ.C, shown in FIG. 7-21, is the source 
code to the wvdHoriz(...) function. Compile WVDHORIZ.C and add the resul- 
tant WVDHORIZ.OBJ object modules to your TABS.LIB, TABM.LIB, and 


TABL.LIB files. 


7-21 The source code listing to WVDHORIZ.C. 


eran emepanamimastt 


SILLIVTTLTTLT LTT LATTA TT 
II 


// wvdhoriz.c 


If 

// Description: 

// Draw a horizontal bar in window. 
// 


// include files here 

#include <tproto.h> 

void 

_fastcall wvdHoriz(WIND *R,int row, int column, int number,int attr) 
i stop,col_start, token; 


// convert local coordinates to 
// global coordinates 


row += R->ul_row; 
column += R->ul_col; 


// draw horizontal line 


vdHorizCrow,column,number, attr); 
y 
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wvdSir(...) Function wvdsir(...), an internal TAB library window function, 
writes a string to the window. String length and screen attributes during 
the screen write are controlled. WVDSTR.C, shown in FIG. 7-22, is the 
source code to the wvdstr(...) function. Compile WVDSTR.C and add the 
resultant WVDSTR.OBJ object modules to your TABS.LIB, TABM.LIB, 
and TABL.LIB files. 


7-22 The source code listing to WVDSTR.C. 


SILTTTITLLTTTLT TTT TIT 
// 


// wvdstr.c 

// 

// Description: 

// Internal video routine. 
// 


// include files here 


#include <stdio.h> 
#include <tproto.h> 


extern VIDEO *crt; 


void 

_fastcall wvdStr(WIND *W,int row,int col,int length,char *str,char attr) 
{ 

// convert local coordinates to 

// global coordinates 


row += W->ul_col; 
col += W->ul_col; 


// write string to screen 


vdWriteCrow,col,length,str,(int)attr); 
} 


wvdVert(...) Function wvdVert(...) writes a single vertical bar to the window 
at a specified row and column location using a designated screen attri- 
bute. WVDVERT.C, shown in FIG. 7-23, is the source code to the wvdVert(...) 
function. Compile WVDVERT.C and add the resultant WVDVERT.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-23 The source code listing to WVDVERT.C. 


VISILTVITITTLT TATA TTT TAA 
// wdvert.c 
// 


// Description: 
// Draw a verticle bar in window. 


// include files here 
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7-23 Continued. 

#include <tproto.h> 

void 

_fastcall wvdVert(WIND *R,int row, int column, int number, int attr) 


{ 
// convert local coordinates to 


// global coordinates 


row += R->ul_row; 
column += R->ul_col; 


// write vertical bar in window 


vdVert(row,column,number,attr); 
> 


wvdWrite(...) Function wvdWrite(...) writes a string to the window at a speci- 
fied row and column location using a designated screen attribute. Func- 
tion wvdWrite(...) is the backbone function of all window write operations. It 
is very fast and provides very professional-looking results. WVDWRITE.C, 
shown in FIG. 7-24, is the source code to the wvdWrite(...) function. Compile 
WVDWRITE.C and add the resultant WVDWRITE.OBJ object modules to 
your TABS.LIB, TABM.LIB, and TABL.LIB files. 


7-24 The source code listing to WVDWRITE.C. 
OULU 
ti 


// wdwrite.c 

// 

// Description: 

// Write string in window. 
// 


// include files here 


#include <stdio.h> 
#include <tproto.h> 


void 
_fastcall wvdWrite(WIND *W,int row,int col,int len,char *str,int attr) 


// convert local coordinates to global coordinates 


if(ilen) 
len=strlen(str); 
if (col==CENTER) 
col=(W->lr_col-W->ul_col-len-1)/2; 
row += W->ul_row; 
col += W->ul_col; 


// write string to screen 


vdWrite(row,col,len,str,attr); 
} 
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wvrdChar(...) Function wvrdChar(...) reads the screen token from a specified 
row and column window location. WVRDCHAR.C, shown in FIG. 7-25, is 
the source code to the wvrdChar(...) function. Compile WVRDCHAR.C and 
add the resultant WVRDCHAR.OBJ object modules to your TABS.LIB, 
TABM.LIB, and TABL.LIB files. 


7-25 The source code listing to WVRDCHAR.C. 


VILLLSITTTTTTTLT ATT TTT 
// 


// wrdchar.c 

// 

// Description: 

// Reads video token in window. 
// 


// include files here 


#include <stdio.h> 
#include <tproto.h> 


int 
_fastcall wyrdChar(WIND *R,int row,int col) 


int token; 


// convert local coordinates to 
// global coordinates 


row += R->ul_row; 
col += R->ul_col; 


// read screen token from window 
token = vrdChar(row,col); 
// return screen token 


return(token); 
} 


Window-display and menu demonstrations 


PROG29.C, shown in FIG. 7-26, is a demonstration program that provides a 
clear template for displaying a simple window. The source template provided 
in PROG29.C provides you with the basic window-creation scheme used in 
all the window-based demonstration programs that follow. I strongly suggest 
that you play with PROG29.C and create many different windows. Change 
the window’s size, the window’s location, the window’s border, the window’s 
display attribute, and the window’s information. Once you follow through on 
writing PROG29’s variations, you’ll have a very firm grasp of how to use your 
TAB library to create professional-looking windows. 
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7-26 The source code listing to PROG29.C. 


VILILLTTLITATLT TATA 
// 

// prog29.c 

// 


// Description: 
// Pop up window demonstration shell 


// program. 

// 

// 

// include files here 


#include <stdio.h> 
#include <tproto.h> 


// declare pointer to window structure 
WIND *HELP; 

// declare window previously initialized 
int help_flag=0; 


// infol window data 


" \\ Go to ROOT Directory "; 
"=. Back one Directory ite 


char help7(29] 
char help8[28] 
char help9[28) 
char help10 [28] 


" H For MORE HELP er 
" ANY other Key to Exit Help "; 


char help1 [28] = " Key Action Me 
char help2 [28] =" Q QUIT to DOS a 
char help3[(28] =" R Run Program (.EXE/.COM)"; 
char help4(28] =" S DOS SYSTEM Prompt iF 
char help5 [28] =" T Tag Highlight On/Off ": 
char help6[28] =" W Word Proc. (Misc.) file"; 


// blank line data 


char b32[] = € 
32,32,32,32,32,32,52,32, 
32,32,32,32,32,52,52,32, 
32,32,32,32,32,32,32,32, 
32, 32,32,32,32,52,52,52, 
32,32,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 


32,32,32,32,32,32,52,32, 
32,32,52,32,32,32,52,52, 
32,32,32,32,32,32,52,32, 
32,32,52,32,32,32,32,52); 


SULTTTTLTTTLTT TLD TTT 
/ 


// How to create a window usin the 
// TAB library 
// 


void 
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7-26 Continued. 

hel pwi() 

y holds key press scan and char values 

int key; 

// if window creation called first time 

if(thelp_flag) 
TLL 


// 
// Initialize grid menu window // 
// structure and display window // 


// // 
COU 


SILTTITTTI SITLL AAA TT 
// 
/f Allocate memory and return pointer 


// to structure 
// 


HELP = setWind(HELP,6,24,6+11,24+29); 
UU 

// 

// Set Window Attribute 

// Fore,Back, Intensity, Bl ink 

// 
setAttr(HELP,mkAttr(BLACK,CYAN,OFF_INTENSITY,OFF_BLINK)); 
ULL 


If 
// Set Window Border 
// 


setBord(HELP,D DDD); 


SISTTTTTSTAT LTT ATTA TT 
i Set the top title 

setTitle(HELP," TSR SHELL HELP "); 
GOO ELLE a et OL 


// Display window first time 
// 


strtWind(HELP); 
> 
else 
// display window which has been 
// previously initialized 


dispWind (HELP); 
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// write window messages 


wdwWrite(HELP,1,1,28,help1,mkAttr(CYAN, 
BLACK, 
OFF_INTENSITY, 
OFF_BLINK)); 
wrdwWrite(HELP,2,1,28,help2,HELP->attr); 
wdWrite(HELP,3,1,28,help3,HELP->attr); 
wdWrite(HELP,4,1,28,help4,HELP->attr); 
wvdWrite(HELP,5,1,28,help5,HELP->attr); 
wvdWriteCHELP,6,1,28,help6,HELP->attr); 
wvdWriteCHELP,7,1,28,help7,HELP->attr); 
wvdWriteCHELP,8,1,28,help8,HELP->attr); 
wvdWrite(HELP,9,1,28,help9, HELP->attr); 
wvdWrite(HELP,10,1,28,help10,HELP->attr); 
wvdAttr(HELP,9,2,3,mkAttr(CYAN, 
BLACK, 
OFF_INTENSITY, 
OFF_BLINK)); 


8 
a 


// wait for key press 
key = gtKey(); 


// remove window image and restore 
// previously saved screen 


remvWind( HELP); 
} 

void 

main() 

{ 

int value; 


int attri,attr2; 


// initialize TAB library video 
// structure 


vidiInit(); 

// erase bottom row 
vdWrite(24,0,80,b32,7); 

// turn off blinking cursor 
of fCur(); 

// initialize attributes 


attr1 = mkAttr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK); 
attr2 = mkAttr(WHITE,BLACK,ON_INTENSITY,ON_ BLINK); 


// window pop up loop 
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7-26 Continued. 


do 


{ 
// print pop up message 


vdwrite(24,0,0, 
"Pop Up Window Active, Any key to remove Window " 
,attri); 

// pop up TAB window 

helpwi(); 

// not active 

vdWrite(24,0,0, 
"=> Press ALT X to Exit to DOS, any key Pop Window " 
,attri): 

vdAttr(24,0,2,attr2); 


} while(gtKey() != ALT_X); 


// turn on blinking cursor 


onCur(); 


// erase bottom row 


vdWrite(24,0,80,b32,7); 


) 


Compile PROG29.C and link the resultant PROG29.OBJ object mod- 
ule with your TABS.LIB file. Running PROG29.EXE shows how quickly 


your TAB library window pops up and down. 


PROG30O.C, shown in FIG. 7-27, is the first-of-many user interface dem- 
onstration programs that provide clearly labeled templates to create a ver- 
tical scroll-bar menu, a Lotus-style menu, and a grid-style menu. There 
are many very useful routines in PROG3O.C and I have tried to be very 


thorough in documenting every one. 


7-27 The source code listing to PROG30.C. 


FILILTTTTTLTLTTT TATTLE TTT TTT 
II 


// prog30.c 


// 


// Description: 
// Menu demonstration program. 


t/ 


1) Pop up highlight bar 
window 


2) Grid Style Highlight Bar 
Window 
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If 


// 3) Lotus Style Window 
Ii 


// Include Files 


#include <stdio.h> 
#include <tproto.h> 


ULL 
If 

// C function prototypes 

// Routines used by this demo 

// 


int tgrid(void); // display grid type window 


void infol(void); // simple pop-up information window 


int tlotus(void); // display lotue style window 
int main(void); // program main 


SIVTTTLITLLTTT TTT LTT TTT TTT 
// 


// Make variables which must retain their 
// value after the function exits, global 
// 


int lotus_flag=0; 
int lotus_item=0; 
int grid_item=0; 
int grid_flag=0; 


VILILLITTTTTLTT LTT AT 
If 

// Pointers to Window Structures 

// 


WIND *FIRST; 
WIND *GRID; 
WIND *INFORM; 
WIND *LOTUS; 


CULL 
// 


// Window Messages 
// 


VILLITTITLTT LTT T TTT TTT TTT TT 
/ 


/ 
// Messages for FIRST Window 
// 


char title[29] = " TAB Library Menu Demo it 
unsigned char i_bar[31] = ¢ 

195, 196, 196, 196, 196, 196,196,196, 

196, 196,196, 196, 196, 196,196,196, 

196,196, 196, 196,196, 196, 196,196, 

196,196,196, 196,196,196, 180 }; 
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7-27 Continued. 


char item1[(29] = " Lotus Style Menu its 
char item2[29] = " Grid Style Menu We 
char item3(29] = " Some Historical Information "; 
char item5[29] = " Quit TAB Menu Demo its 


SITTIVITTTAT DTT LTT TAT 


/ 
// Messages for LOTUS Window 
// 


char menul (47] 
char mess1 [47] 
char mess2 [47] 
char mess3 [47] 
char messé4 [47] 
char mess5 [47] 


" Mean Mode Median Range Standard Deviation "; 
" Mean is the Average score of the distribution "; 
" Mode is the most frequent score us 
" Median is the middle score of sample Ms 
" Range is the distance from highest to lowest ": 
" Standard dev. is avg. distance from mean Le 


SILTTILILTTTLTT TTT TTT TT 
// 


// \ot_map holds mess column offset & length 
// 


int lot_map[5] [2] = ¢ 


SILTTLTTTTLTT TATA TATA 
// 


// messages for GRID window - holds row & column 


// 

char gmenu[21] = " SELECT A NUMBER’ '"; 
char gridi(21] = " 1 2 3 aE 
char grid2(21] = " 4 5 6 ns 
char grid3[21] = " 78 9 ve 


char grid4[21] = " Press ENTER to Exit "; 
VUILITITTTL TATA TT TATA A 


// grid_map row,column for start of inverse item 
// 


int grid_map[9] [2] = ¢ 


TUT AAT 
// 
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// infol window data 
// 


char speedi [28] =" Trivia Infomation Window 


unsigned char speed2[30] = ¢ 
199,196,196, 196, 196, 196, 196, 196, 
196, 196,196, 196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 196, 196, 196, 
196, 196,196, 196,196,182 }; 


char speed3 [28] =u Program Coded 
char speed4 [28] =u by 

char speed5 [28] =u Len Dorfman 

char speed6 [28] = and 

char speed7 (28) =" Chuck Dorfman 


char speed8 [28] 
TISTLTTITTTT ATTA TTT LTT 
// 

// global variables 


// 
int xinverse; // attribute for inverse 
int hl_tense; // highlight bar intensity 


ULL 
// 


// 

// Lotus Style Window // 
// If 
// Receives: nothing // 
// Returns: item selection number // 
// // 
// Displays Lotus style window // 
// with attendant cursor, high- // 
// light and item description // 
// routines. // 


// If 
EU 
int 

tlotus() 

{ 

int key; // scan and char value 


int exit; // val for loop cond chk 
int exp_a; // item explanation attr 


UU. 
// 


// Initialize lotus menu window ff 
// structure and display window // 
If If 


SILTLPTTTTLTTLLT TTT 
// 


// Set lotus explanation Attrribute 
// - Fore,Back, Intensity,Bl ink 
If 


Window-display and menu demonstrations 


« Press ANY KEY to exit. 


Us 
e 


209 


7-27 Continued. 
exp_a = mkAttr (MAGENTA, BLUE ,ON_INTENSITY,OFF_ BLINK); 
SIVTTTTTTATTT TT AT TTT AAA 
// call window initialization 
// routines only once 
// 
if¢! lotus_flag) 
{ 


// ensure window startup bypassed 
// next window call 


lotus_flag=1; 


// Allocate memory and return pointer 
// to structure 


LOTUS = setWind(LOTUS,6,20,9,68); 

// Set Window Attr - Fore,Back, Intensity,Blink 
setAttr(LOTUS,mkAttr(WHITE,BLUE,ON_INTENSITY,OFF BLINK)); 
// Set Window Border - top, bot, left, right 
setBord(LOTUS,S S S$ S); 


// Set the top and bottom title - 
// 0 set no bottom title 


setTitle(LOTUS," Lotus Style Window "); 
//{ Display window 
strtWind(LOTUS); 
> 
else 
// display window if window previously 
// created 
dispWind(LOTUS); 
// set loop condition 
exit=aFALSE; 
do 
{ 
// Write title bar - erasing old inverse 


wvdWrite(LOTUS,1,1,47,menu1,LOTUS->attr); 


// Inverse proper menu item using lot_map{[] [] 
wvdAttr(LOTUS,1, lot_map{lotus_item] [0] , lot_map[lotus_item] [1] ,hl_tense); 


// print item explanation 
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switch(lotus_item) 


{ 
case 0: 


wvdWrite(LOTUS,2,1,47,mess1,exp a); 


break; 


case 1: 


wvdWrite(LOTUS,2,1,47,mess2,exp_a); 


break; 


case 2: 


wvdWrite(LOTUS,2,1,47,mess3,exp_a); 


break; 


case 3: 


wvdWrite(LOTUS,2,1,47,mess4,exp_a); 


break; 


case 4: 


wvdWrite(LOTUS,2,1,47,mess5,exp_a); 


break; 
> 


// wait for key press 
key = gtKey(); 
// process key press 


switch(key) 
{ 
case RIGHT_ARROW: 
if(lotus_item==4) 
lotus_item=0; 
else 
lotus_itemt+; 
break; 


case LEFT_ARROW: 
if(lotus_item==0) 
lotus_item=4; 
else 
lotus_item--; 
break; 


case ENTER: 
exit=aTRUE; 
break; 

> 


> while(!exit); 
// Remove Lotus Window 


remvWind(LOTUS); 


// return selected item number 


return(lotus_item); 
} 


// At right item? 
// Yes? 

// set left item 
// Else 

// move rt 1 item 


// At left item? 

//{ Yes? 

// set right item 
// Else 

// move (ft 1 item 
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VITLLTTTIITT DATTA TTT ATA 
/ 


// 

// Grid Style Window // 
// // 
// Receives: nothing // 
// Returns: item selection number // 
// // 
// Displays Grid style window // 
// with attendant cursor & high- // 
// light description routines. // 
// 


// 
SILTLTITTTTT TATA TT 
int 
tgrid() 
{ 


int key; // scan and char value 
‘int exit; // val for loop cond chk 


NULL 
If 

// Initialize grid menu window 

// structure and display window 

Ii 


if(!grid_flag) 
{ 
// ensure window initialization bypass 
grid_flag=1; 


// Allocate memory and return pointer 
// to structure 


GRID = setWind(GRID, 10,10, 18,32); 


// Set Window Attrribute 
// - Fore,Back, Intensity, Blink 
setAttr(GRID,mkAttr(WHITE,RED,OFF_INTENSITY,OFF_BLINK)); 


// Set Window Border 
setBord(GRID,D DD D); 


// Set the top and bottom title 
// - 0 set no bottom title 


setTitle(GRID," Grid Style Window "); 
// Display window 
strtWind(GRID); 
} 
else 
// display window if window had 
// been previoulsy displayed 


dispWind(GRID); 
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7-27 Continued. 
// Write name and exit messages 


wvdWrite(GRID,1,1,21,gmenu, xinverse); 
wvdWrite(GRID,7,1,21,9rid4,GRID->attr); 
wvdWrite(GRID,7,8,5, "ENTER" ,mkAttr(WHITE,RED,OFF_INTENSITY,ON BLINK)); 


// set loop condition 
exit=aFALSE; 


do 


{ 
// Write grid entries bar 


wvdWrite(GRID,3,1,21,grid1,GRID->attr); 
wvdWrite(GRID,4,1,21,grid2,GRID->attr); 
wvdWrite(GRID,5,1,21,grid3,GRID->attr); 


// Inverse proper menu item using grid_map[] [] 
wvdAttr(GRID,grid_map[grid_item] [0] ,grid_map[grid_item] [1] ,3,xinverse); 
// wait and get key press 

key = gtKey(); 

// process key press 

switch(key) 


{ 
case RIGHT_ARROW: 
// IF rt col->mv to left col ELSE->mv rt 


if( (grid_item==0) | 
(grid_item==1) | 
(grid_item==3) | 
(grid_item==4) | 
(grid_item==6)| 
(grid_item==7) ) 
grid_item++; 

else if(grid_item==2) 
grid_item0; 

else if(grid_item==5) 
grid_item=3; 

else 
grid_item=6; 

break; 


case LEFT_ARROW: 
// IF left col->mv to rt col ELSE->mv left 


if( (grid_item==2) | 
(grid_item==1)| 
(grid_item==5) | 
(grid_item==4)| 
(grid_item==8) | 
(grid_item==7) 
grid_item--; 
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else if(grid_item==0) 
‘grid_item=2; 

else if(grid_item==3) 
grid_item=5; 

else 
grid_item=8; 

break; 


case DOWN_ARROW: 
// IF bottom row->mv to top row ELSE->mv down 


if(grid_item<=5) 
grid_item += 3; 

else if(grid_item==6) 
grid_item=0; 

else if(grid_item==7) 
grid_item=1; 

else 
grid_item=2; 

break; 


case UP_ARROW: 
// \F top row->mv to bottom row ELSE->mv up 


if(grid_item>=3) 
grid_item -= 3; 

else if(grid_item==0) 
grid_item=6; 

else if(grid_item==1) 
grid_item=7; 

else 
grid_item=8; 

break; 


case ENTER: 
exit=aTRUE; 
break; 
> 
) while(!exit); 
// Remove Lotus Window — 
remvWind(GRID); 
// return selected item 


return(grid_item); 


SILTLLLLTTLTT TTT TTT TTT TAT 


// // 
// Simple Style Window // 
// // 
// Receives: nothing // 
// Returns: nothing // 
// // 
// Displays Simple pop up // 
// information window. // 
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7-27 Continued. 


// // 
SISTLIITTTLTTTTLLT TTT T TTT TTT 
CULL 
// 


// Make variables which must retain their 
// value after the function exits global 


// 
int infol_flag=0; 


void 
info1() 


{ 
CULL 


// 
// Initialize grid menu window 


// structure and display window 
// 


if(!infol_flag) 
{ 
// ensure window initialization bypass 


infoi_flag=1; 


// Allocate memory and return pointer to structure 


INFORM = setWind( INFORM, 12-5,20-5,22-5,49-5); 


// Set Window Attrribute - 
// Fore,Back, Intensity,Bl ink 


setAttr( INFORM, mkAttr(BLACK, 
CYAN, 
OFF_INTENSITY, 
OFF_BLINK)); 
// Set Window Border 
setBord(INFORM,D_D_D_D); 


// Set the bottom title 


setTitleC( INFORM," Trivial Information "); 


// Display window 


strtWind( INFORM); 


} 
else 


// displya previously initialized window 


dispWind( INFORM); 
// Write menu and exit messages 


wvdWriteC INFORM, 1,1,28,speed1,mkAttr(CYAN, 
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7-27 Continued. 


BLACK, 
OFF_INTENSITY, 
OFF_BLINK)); 
wvdwr ite( INFORM, 2,0,30,speed2, INFORM->attr); 
wvdwWrite(INFORM,3,1,28,speed3, INFORM->attr); 
wvdwrite( INFORM,4,1,28,speed4, INFORM->attr); 
wvdwr i teC INFORM,5, 1,28, speed5, INFORM->attr); 
wvdwr ite( INFORM,6,1,28,speed6, INFORM->attr); 
wvdwriteC INFORM, 7,1,28,speed/7, INFORM->attr); 
wvdwWriteCINFORM,8,0,30,speed2, INFORM->attr); 
wvdwWrite( INFORM,9,1,28,speed8, INFORM->attr); 


// wait for key press 
gtKey(); 
// remove window and display original screen information 


remvWind( INFORM); 
) 


COU 
// // 


// int main(void) // 
// // 
// Receives: nothing // 
// Returns: nothing // 
// // 
// Sets up the FISRT window // 
// display and contains the Sf 
// scroll bar menu selection // 
// routine. // 


/] // 
SISIVTTTITLITDT TAT TS 


int 

main() 

{ 

int key; // recieves Scan & char key code 
int exit; // holds val for main loop check 
int old_row; // Tracker for highlight bar 

int row; // Tracker for highlight bar 


int intense; // intensity attribute value 
int beep; // flag for beep on 'Q' keypress 


SILTITTTTLTLTAT TTT TATA 
y Initialize VIDIO structure 

ji ALWAYS call at prog start! 

// 

vidinit(); 


// Set global attribute intense for inverse video 


xinverse = mkAttr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK); 
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7-27 Continued. 


// set global attribute hl_tense for 
// WHITE WHITE, INTENSE, OFF BLINK 


hl_tense = mkAttr(WHITE ,WHITE,ON_INTENSITY,OFF_BLINK); 
// Set intense text attribute for this window 

intense = mkAttr(WHITE,MAGENTA,ON_INTENSITY,OFF_BLINK); 
// Turn off the cursor 

of fCur(); 

VITTVVITTTTT LTT 

// Initialize main menu window 

// structure and display window 

// 

// Allocate memory and return pointer to structure 
FIRST = setWind(FIRST,2,4, 10,34): 


// Set Window Attr - Fore,Back, Intensity,Bl ink 


setAttr( FIRST ,mkAttr(WHITE,MAGENTA, OFF_INTENSITY,OFF_BLINK)); 


// Set Window Border - top, bot, left, right 
setBord(FIRST,D_D_S S); 

// Set the top and bottom title 
setTitleCFIRST," MSC 6.0 TAB Library "); 

// Display window 

strtWind( FIRST); 


// Write menu name & line below to window 


wydwrite(FIRST,1,1,29,title,xinverse); 
wydWrite(FIRST,2,0,31, i_bar, FIRST->attr); 


// Write menu items to window 
wydwrite(FIRST,3,1,29, item1,FIRST->attr); 
wdwrite(FIRST,4,1,29, item2, FIRST->attr); 
wvdWrite(FIRST,5,1,29, item3,FIRST->attr); 
wvdWrite(FIRST,6,0,31,i_bar, FIRST->attr); 
wrdwWriteCFIRST,7,1,29, itemS, FIRST->attr); 
// highlight first letter of item 


wvdAttr(FIRST,3,2,1, intense); // L intense 
wvdAttr(FIRST,4,2,1, intense); // G intense 
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7-27 Continued. 


wvdAttr(FIRST,5,2,1, intense); 
wvdAttr(FIRST,7,2,1, intense); 


// S intense 
// Q intense 


// Set highlight trackers to start at item! (row 3) 


row = 3; 
old_row = 3; 


// set default for no beep 

beep = aFALSE; 

// Set loop condition 

exit = aFALSE; 
SILTLILTITLTT DTI TTT TT 


// 

// Main keyboard loop. 

// Selects: tlotus(), tgrid(), 

// infoi(), & quits 

// 

// Up,Down arrow or First letter move highlight bar 
// 


do 
{ 
wvdAttr(FIRST,old_row,1,29,FIRST->attr); // off highlight bar 
wvdAttr(FIRST,old_row,2,1, intense); // intense item let 


wvdAttr( FIRST, row, 1,29,xinverse); 
wvdAttr(FIRST,row,2,1,hl_tense); 


// on highlight bar 
// intense HB letter 


if (beep) 
{ 
bleep(); 
beep=aFALSE; 
> 
old_row = row; 
key = gtKey(); 
switch(key) 
{ 
case DOWN_ARROW: 
1f (row==7) 
row=3; 
else if(row==5) 
row=/7; 
else 
row++: 
break; 
case UP_ARROW: 
if (row==7) 
row=5> 
else if (row==3) 
row=/; 
else 
row--; 
break; 
case ENTER: 
switch(row) 


// YES? beep after 
// scrn update 
// Yes-warning beep 
// reset-> no beep 


// reset OFF tracker 
// get scan & char 
// eval key press 


// lf bottom row 
// then->top row 
// Vf row 5 

// then skip to 7 
// Otherwise 

// then down row 


// If bottom row 
// then skip to 5 
// lf row 3 

// then->bot row 
// Otherwise 

// then up row 


// Eval selection 
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7-27 


Continued 


{ 
case 3: // sel. lotus demo 
tlotus(); 
break; 
case 4: 
tgrid(); // sel. grid demo 
break; 
case 5: 
infol(); // simple demo 
break; 
case 7: // Exit option 
exit=aTRUE; 
break; 
) 
break; 
default: // Check ascii val 


key &=0x00ff; 
switch(key) 


// mask scan code 
// which key? 
{ 
case 'l': // L->lotus choice 
case 'L': 

row=3; 

break; 
case 'g!': // G->grid choice 
case 'G!: 

row=4; 

break; 
case 's!: // S->simple demo 
case 'S':; 

row=5; 

break; 
case ‘q': // Q->quit wind 
case 'Q': 

row=/; 

beep=aTRUE; /* set for beep 

break; 

> 


break; 


> 
} while (!exit); 


// remove window and restore originial screen 


remwWind( FIRST); 


// turn on the cursor & 
// return 0 to DOS 


onCur(); 
return(Q); 


} 


// 
// End of PROG30.C source code 


// 
SITIITLTTTLTT DALLA TTT TT 
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Compile PROGSO.C and link the resultant PROG30.OBJ object mod- 
ule to your TABS.LIB file. Running PROG30.EXE visually demonstrates 
how the Lotus-style, the grid-style, and the vertical-style windows operate. 
I think you'll be quite pleased with the screen performance in respect to 
program size. Snappy program performance executed by a small program 
is what optimization is all about. 


Summary 


In this chapter, twenty-five window-creation routines were presented. Fig- 
ures 7-26 (PROG29.C) and 7-27 (PROG3O.C) provide source code templates 
describing the syntax of vital window functions and demonstrating how, 
in combination, the TAB library window functions arm you with all you 
need to write virtually any keyboard-driven user interface. 

I'm not going to stop with keyboard-driven input. That wouldn’t be 
correct considering how popular rodents, I mean mice have become. 
Chapter 8 presents routines to read the mouse and a rewrite of PROG30.C 
that permits both keyboard and mouse input at the same time. 

Figure 7-28 presents the current TABS.LIB library listing file. 


7-28 The current TABS.LIB contents listing. 


@bleep.....secceee bleep @boxRect......-00- boxrect 
@CUPRECEs case cwse clrrect Odell ay scicviceowees delay 
AdiSpWind......e0. dispwind OdsyWind.......e. dsywind 
dexit_bad......... exit_bad fillRect......... filtrect 
QgtCur...sseeeee.-9tcur AgtKey...ccccccees gtkey 
MOT FCUR Soeie eee ees offcur @ONCur. ..ccccevces oncur 
@putChr. we csccccae putchr MPUCS EM ocawceaccew putstr 
OPClOCcs ive eeu ee rcloc OFOLING is cscwee ewes rdimg 
@rdWind. wee. »oe--Fdwind @remvwind....ssee- remvwind 
@restRect...cceus restrect @restScrn....ceees restscrn 
QrMvCur. waccceaces rmveur OrsizeCur..ccesees ssizecur 
@saveRect...cecees saverect @SaveScrn..csessee savescrn 
OSClOC. vc csawe sews scloc @setAttr...ccseees setattr 
asetBord..........setbord @SetRect...cceceee setrect 
asetTitle......... settitle asetWind........0. setwind 
@SIZECUP. weecceces sizecur @SIZEIMG...ceecees sizeimg 
@SIZERCCt. cc eceees sizerect @ssizeCur.....see- ssizecur 
astrtWind.... cee. strtwind QVAEdit....cwcceee vdedit 
@vrdChar..cccccces vrdchar QWrBOX. wcccccccees wrbox 
QwWrimMg..cececeeeesWFiMg QwrWind....ee- ....Wrwind 
QWVGACtr. wesceee . wvdattr QwvdChar...cccccee wvdchar 
QWVGHOriZ..cccaees wvdhoriz QwVdStr.. cccccces wvdstr 
QWVGVert. weecccces wvdvert QwWVGWrite..ccesees wvdwrite 
@wyrdChar....eeee. wvrdchar addijiff......se. timer 
CPt ivscscsvevsces vidinit _defkey1.......... vdedit 
_defkey2...csevees vdedit _GefkeyS...ccccees vdedit 
_defkey4..cseceeee vdedit _get_jiffhour..... timer 
_get_jiffmin...... timer _get_jiffy........ timer 
_get_ljiffy....... timer _gtKBstat......... gtkbstat 
_g Shape.......... g_shape _initialize_timer..timer 
INWKATUP cece cereus mkattr _MkToken......200- mk token 
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mycur 
_mvCur 


timer 
_addi ji ff 
_get_ljiffy 
_temove_timer 


gtcur 
agtCur 


rmvcur 
armvCur 


scloc 
asCloc 


rcloc 
arCloc 


oncur 
aonCur 


s_shape 
_S_shape 


g_shape 
_9_shape 


of fcur 
dof fCur 


sizecur 
asizeCur 


$sizecur 
arsizeCur 


mktoken 
_mkToken 


mkattr 
_mkAttr 


serncl(r 
_serncir 


mvcur _newtimer......... timer 
of fsound _onSound.......... onsound 
putcrlf _remove_timer..... timer 
timer _Scrn€lr..w.ceeees sernclr 
vidinit _SPARKLE_FLAG..... vidinit 
timer _Stop_timer....... timer 
s_shape VCAttPrewccccenees vdattr 
vdchar _VGHOriZ....ceeeee vdhor iz 
vdvert _VGWrite...ccecees vdwrite 
vidinit _VID_PORT......... vidinit 


Offset: 00000010H Code and data size: 15H 


Offset: OQOOO0bOH Code and data size: eQ0H 


_get_jiffhour 
_initialize_timer 
_reset_timer 


_get_jiffmin 


_start_timer 


_get_jiffy 
_newtimer 
_stop_ timer 


Offset: 00000390H Code and data size: 2cH 


Offset: 000004a0H 


Offset: 000005e0H 


Offset: 00000710H 


Offset: 00000830H 


Offset: 00000950H 


Offset: OO00009fOH 


Offset: 00000a80H 


Offset: 00000ba0H 


Offset: O0000cbOH 
assizeCur 


Offset: O0000dfOH 


Offset: 00000e90H 


Offset: O0000f30H 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data size: 30H 


and data size: 26H 


and data size: 10H 


and data size: eH 


and data size: cH 


and data size: /H 


and data size: eH 


and data size: 1aH 


and data size: 26H 


Code and data size: bH 


Code and data size: 17H 


Code and data size: ‘aH 
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vidinit 
_ert 
_VID_PORT 


vdchar 
_vdChar 


vdurite 
_vdurite 


vdhor iz 
_vdHoriz 


vdvert 
_vdVert 


vdattr 
_vdAttr 


vrdchar 
avrdChar 


savescrn 
asaveScrn 


restscrn 
arestScrn 


delay 
ade lay 


bleep 
ableep 


gtkey 
agtKey 


vdedit 
avdEdit 
_defkey4 


onsound 
_onSound 


of fsound 
_Of fSound 


gtkbstat 
_gtKBstat 


fillrect 
afillRect 


setrect 
asetRect 


sizerect 
asizeRect 


Offset: OOOOOfdO0H 
_SCRNSEG 


Offset: 000011a0H 
Offset: 00001270H 
Offset: 00001350H 
Offset: 00001420H 
Offset: 000014f0H 
Offset: 000015c0H 
Offset: 00001700H 
Offset: 00001860H 
Offset: 000019d0H 
Offset: 00001af0H 
Offset: 00001c30H 


Offset: 00001d30H 
_defkey1 


Offset: 00002780H 
Offset: 00002820H 
Offset: 000028b0H 
Offset: 00002950H 
Offset: 00002aa0H 


Offset: 00002c10H 


Code and data 
_SPARKLE_FLAG 


Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 


Code and data 
_defkey2 


Code and data 
Code and data 
Code and data 
Code and data 
Code and data 


Code and data 
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size: 71H 


_vidinit 


size: 27H 


size: 42H 


size: 2cH 
size: 32H 
size: 2eH 
size: 3cH 
size: 44H 
size: 46H 
size: 32H 
size: 2eH 
14H 


size: 


size: 75aH 


_defkey3 


size: 18H 


size: 7H 
size: 11H 
size: 42H 
50H 


size: 


size: 10H 


7-28 Continued. 


clrrect 
aclrRect 


boxrect 
aboxRect 


saverect 
asaveRect 


restrect 
arestRect 


putcr | f 
_putCRLF 


putstr 
@putStr 


putchr 
@putChr 


wrimg 
awr Img 


wrbox 
awrBox 


wrwind 
awrWind 


rdimg 
ardimg 

sizeimg 
asizelmg 


exit_bad 
@ex i t_bad 


rdwind 
ardwind 


dispwind 
adi spWind 


remvwind 
aremvW ind 


settitle 
asetTitle 


setwind 
asetWind 


setbord 
asetBord 


dsywind 
ads yW ind 


Offset: 
Offset: 
Offset: 


Offset: 


Offset: 
Offset: 
Offset: 
Offset: 
Offset: 
Offset: 
Offset: 
Offset: 
Offset: 
Offset: 
atieet: 
Offset: 
Offset: 
Offset: 


Offset: 


Offset: 


00002d10H 


00002e60H 


00003200H 


00003350H 


000034a0H 


00003540H 


00003690H 


00003790H 


000038d0H 


00003c50H 


00003d90H 


00003ed0H 


00003 fd0H 


00004150H 


00004290H 


000043c0H 


000044 f0H 


00004670H 


00004880H 


00004970H 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


Summary 


46H 


238H 


42H 


42H 


bH 


38H 


14H 


42H 


228H 


42H 


42H 


10H 


43H 


42H 


18H 


18H 


56H 


cdH 


4H 


3aH 
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7-28 Continued. 


setattr 
asetAttr 


strtwind 
astrtWind 


wvdattr 
awvdAttr 


wvdchar 
awvdChar 


wvdhoriz 
awvdHoriz 


wvdstr 
awvdStr 


wvdvert 
awvdvert 


wvdwrite 
awvdwr ite 


wvrdchar 
awvrdChar 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


00004 ab0H 


00004ba0H 


00004d10H 


00004e40H 


00004 f60H 


00005090H 


00005 1c0H 


000052f0H 


00005460H 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 
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size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


4H 


42H 


26H 


22H 


28H 


28H 


26H 


Sal 


20H 


8 
Foundation mouse routines 


Chapter 8 provides tools for writing an optimized keyboard-and-mouse- 
driven user interface. In recent years the menu-bar and drop-down-window 
user interface design has virtually become the defacto industry standard. 
Mouse input is now routinely being meshed with keyboard input. Program- 
mers wishing to write professional-looking and functioning programs must 
begin to integrate the mouse into their programs. This chapter will clearly 
show you how. 

For those of you familiar with my book Object-Oriented Assembly 
Language (Windcrest Book No. 3620), you’ll recall that the method of how 
you organize information and define terms can profoundly affect how your 
programs are constructed. There are many different ways to construct 
mouse-and-keyboard-driven input functions; here however, I have decided 
to use some of the vocabulary and concepts that can be found in Microsoft 
Windows 3.0 programming. 

I have done this for two reasons. The first is that the text-mode-based 
interface routines presented in this book have been constructed in a way 
as to give a Windows-like feel to them. Secondly, I suspect that many of 
you will be interested in migrating over to the Windows programming 
environment in the next few years. Becoming familiar with some basic 
building-block Windows interface concepts at this time can only be help- 
ful later down the road. 

The coding of an event queue handler will be presented in the ‘‘Writ- 
ing a simple event queue handler’’ section of this chapter. Before I con- 
tinue, however, it makes good sense to explain what an event queue 
handler is at this time. 

An event queue handler processes input from different devices and 
reports messages to the main program for processing. In a sense, you can 
conceptualize an event queue handler as a program separate from your 
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application. The event queue handler process might be thought of like 
this: 


1. Your application asks the event queue handler if a key has been 
pressed, the mouse has been moved, or a mouse button has been 
pressed. 

2. The event queue handler reports changes in the keyboard and 
mouse input status. 

3. Your program gets keyboard and mouse status information from 
the event queue handler and takes appropriate processing action. 


PROG32.C, shown later in this chapter in FIG. 8-6, is a meticulously 
documented simple event queue handler. When you run it you’ll be able to 
see how the keyboard and mouse may both be read at the same time. Press 
any key and the key press statistics will be reported. Move the mouse and 
the mouse position will be reported. Press a mouse button and the button 
pressed will be reported. 

Once you’ve finished reading this chapter you’ll be well on your way to 
writing commercial-quality industry-standard mouse and keyboard user 
interfaces. 


Initializing the mouse 


Function msinit(...) uses mouse interrupt 33h to determine if the mouse is 
present. If a mouse driver and mouse are not present function msinit(...) 
returns —1, otherwise it returns the number of buttons on the mouse. 
MSINIT:.ASM, shown in FIG. 8-1, is the source code to the msinit.(...) function. 
Assemble MSINIT.ASM and add the resultant MSINIT.OBJ object module 
to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


8-1 The source code listing to MSINIT.ASM. 


SLITILTTTATLT TTT 
-// msinit.asm 

// 

:// Description: 

s// Initialize mouse driver 

s// 

3:// On Entry: 

i// Nothing 


s// On Exit: 
tf AX = OFFFFh => no mouse 
s/f AX = num => mouse found & 
iff num = number of 
// mouse buttons 
iff 

DOSSEG 
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8-1 Continued. 


if mdl eq 1 
-MODEL SMALL ,C 
elseif mdl eq 2 
-MODEL MEDIUM,C 


else 
-MODEL LARGE ,C 
endi f 
- CODE 
msinit PROC 
xor AX , AX s init mouse func # 
int 33h : mouse interrupt 
cmp AX,0 : no mouse? 
je nomouse ; yes -> branch 
mov AX , BX : return number mouse 
ret > buttons 
nomouse: s no mouse label 
mov AX,-1 s return -1 
ret s on no mouse 
msinit ENDP 
END 


PROG31.C, shown in FIG. 8-2, demonstrates the use of misinit(...). Com- 
pile PROG31 and link the resultant PROG31.OBJ object module to your 
TABS.LIB file. Running PROG31.EXE will report if there is a mouse driver 


installed in your computer. 


8-2 The source code listing to PROG31.C. 


TILILTTLTLLTTT DTT T DLT TTT 


// 

// prog3i.c 

// 

// Description: 

// Demonstrates use of function 
// msinit(..) 

// 


// include prototypes & prototype files here 


#include <stdio.h> 
#include <tproto.h> 


void main(void); 
// begin program 
void 

main() 


{ 
int mouse; 
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8-2 Continued. 
// initialize TAB video 
vidInit(); 
// clear the screen 
sernclr(); 
// check to see if mouse present 
mouse = msinit(); 
// print mouse presence 
// no mouse present 
i f (mouse<0) 
printf("There is no mouse present\n"); 
// there is a mouse present 
else 


printf("There is a %d button mouse present\n", mouse); 


Writing a simple event queue handler 


As mentioned in the introductory section to this chapter, using an event 
queue handler is a very convenient method of ascertaining the status of 
various input devices. The event queue handler presented in this section 
uses basically one mouse routine and one keyboard routine. 

The mouse routine, function msstat(...) (FIG. 8-5), reads the current 
mouse location in global screen coordinates. The keyboard function gtKB 
Stat(...) (FIG. 5-3) does not stop program execution when reading the key- 
board. 

Two additional mouse-driver routines are also presented in this chap- 
ter. Function mson(...) (FIG. 8-3) turns the mouse on (makes it visible) and 
function msoff(...) (FIG. 8-4) turns the mouse off (makes it invisible). 

Function msor(...) turns the mouse on and should only be called if it 
has been previously determined that there is a mouse present on your 
computer. MSON.ASM, shown in FIG. 8-3, is the source code to the mson(...) 
function. Assemble MSON.ASM and add the resultant MSON.OBJ object 
modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


8-3 The source code listing to MSON.ASM. 


HULL 


e 


:// mson.asm 
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HL 

:// Description: 

:// Turn mouse on (display 
°:// mouse cursor). 


s/f Nothing 


DOSSEG 
if mdl eq 1 

-MODEL SMALL,C 
elseif mdl eq 2 

-MODEL MEDIUM,C 
else 

eMODEL LARGE ,C 
endi f 


- CODE 


mson PROC 
mov ax, 1 
int 33h 
ret 

mson ENDP 


END 


Function msof{(...) turns off the mouse and should only be called after it 
has been previously determined that a mouse driver is presently installed 
on your computer. MSOFF.ASM, shown in FIG. 8-4, is the source code to the 
msoff(...) function. Assemble MSOFF. ASM and add the resultant MSOFF.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


8-4 The source code listing to MSOFF.ASM. 


SLILTTTILLTLLT LTT LT TTL TT 


:// msoff.asm 

// 

:// Description: 

:// Turn mouse off (remove 
s// mouse cursor). 


s// On Entry: 
s// Nothing 
3// On Exit: 

sti Nothing 


DOSSEG 
if mdl eq 1 
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.MODEL SMALL,C 
elseif mdl eq 2 
-MODEL MEDIUM,C 


else 
«MODEL LARGE ,C 
endi f 
.CODE 
msoff PROC 
mov ax,2 3; remove mouse function 
int 33h =; via mouse interrupt 
ret 
msoff ENDP 
END 


Function msstat(..) returns information about the press of a mouse but- 
ton. The mouse-button-return values are: 


Button Value Mouse Action 


1 (LEFTBUTTON) Left button pressed 
2 (RIGHTBUTTON) Right button pressed 
4 (CNTRBUTTON) Center button pressed 


The addresses to two int’s are passed as parameters to function 
msstat(...). The first parameter holds the X (column) location of the mouse 
and the second parameter holds the Y (row) location of the mouse. Note 
that for use of the mouse coordinates in the text mode it makes great sense 
to divide the X and Y values by 8. 

When the division is complete your mouse will be scaled according to 
standard text-mode locations. In other words, after the division by 8, if 
your mouse is at location X= 1 and Y= 12, your mouse cursor would be sit- 
ting on the character at row 12, column 1. 

Let’s explore the implications of relating mouse cursor location to the 
screen’s text coordinate system. For example, you can easily write code, 
PROG32.C (FIG. 8-6), to monitor a mouse cursor location so that when the 
cursor rests on the character at column 1 and row 12 it takes action if the 
left mouse button is pressed. 

Remember that because function msstat(...) returns button press status 
and reports the X (column) and Y (row) location of the mouse cursor, this 
function should only be called if your mouse driver has been installed. 

MSSTAT.ASM, shown in FIG. 8-5, is the source code to the msstat(...) 
function. Assemble MSSTAT.ASM and add the resultant MSSTAT.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 
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8-5 The source code listing to MSSTAT.ASM. 


SLILTTLTTLTTTLL LATTA TTT 
-// msstat.asm 

wie 

:// Description: 

://_ Return mouse location 

:// and button press status 


s// 


DOSSEG 
if mdl eq 1 

-MODEL SMALL,C 
elseif mdl eq 2 

-MODEL MEDIUM,C 
else 

.MODEL LARGE,C 
endi f 


. CODE 


msstat PROC USES DS,x_loc:PTR,y_loc:PTR 
mov AX, 03h get mouse status 


int 33h * via mouse interrupt 
mov AX , BX : return button press 
if mdl eq 3 : if large model 

lds BX,x_loc ; set ptr to X loc 
mov DS: [BX] , CX : return X loc 
lds BX, y_loc ; set ptr to Y loc 
mov DS: [BX] ,DX * return Y loc 

: small & medium models 


else 
mov BX,x_loc set ptr to X loc 
mov word ptr [BX] ,CX return X loc 
mov BX, y_loc set ptr to Y loc 
mov word ptr [BX] ,DX return Y loc 
endi f 
ret 
msstat ENDP 
END 


PROG32.C, shown in FIG. 8-6, demonstrates one way to construct an 
event queue handler. Mouse movement, button-press information, and 
keyboard-press information are instantaneously reported to the screen. 
Compile PROG32.C and link the resultant PROG32.OBJ object module 
with your TABS.LIB file. Running PROG32.EXE will report every key 


press and mouse event to the screen. 


8-6 The source code listing to PROG32.C. 


SILTLLTTTLLATL LATTA TTT TTT 
// 


// prog32.c 
// 
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// Description: 

// Demonstrates use of an event 

// queue handler using functions 

// mson(...), msoff(...) & msstat(...). 
// 


// include prototypes & prototype files here 


#include <stdio.h> 
#include <string.h> 
#include <tproto.h> 


void main(void); 
// begin program 


void 

main() 

{ 

int mouse_present; 
int attr; 

int attr2; 

int attrs3; 

int attr4; 

int key_event; 
int event_loop; 
int button; 

int mouse_x; 

int mouse_y; 

char message [80] ; 


SUIVITTLTITTTTLT DTT DTT TST 


If 
// initialize TAB video 
// 


vidiInit(); 
SILTLTLTATTTTT ATLA AT 
// 


// set screen attribute values 


// 
attri = mkAttr(BLACK,WHITE,OFF_INTENSITY,OFF BLINK); 
attr2 = mkAttr(BLACK,MAGENTA,OFF_INTENSITY,OFF_BLINK); 


attr3 = mkAttr(BLACK,GREEN,OFF_INTENSITY,OFF_BLINK); 
attr4 = mkAttr(BLACK,BROWN,OFF_INTENSITY,OFF_BLINK); 


SITTTLLLTTTTLTT ATTA TT 


// clear the screen 
If 


sernClr(); 


SULTLLTTLTTTTTLLTT ATTA TTT 


// check to see if mouse present 
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// if mouse_present = 


M/ -1 then mouse not present 

/f 1 then 1 button mouse present 
If 2 then 2 button mouse present 
// 3 then 3 button mouse present 
// 


mouse_present = msinit(); 
SULPPTTTTT LITT TTT TTA 


// print screen event queue report 
// format messages 
If 


vdWrite(19,0,0,"Event Queue Report (F10 to exit)", attr4é); 
vdWrite(20,0,0,"--c- nrc cnt etre recente ener ecee " attr4): 


// print dummy key scan & character to screen 


memset (message, 0,80); 
sprintf (message, 
“Last Key: Scan: %02Xh | Char: %02xXh | X%c |", 


Cint)o, 
Cint)d, 
(char)' '); 


vdWrite(23,0,0,message,attr3); 


CULL 


// 
// print mouse present report 


// 


// if mouse not present 
if(mouse_present == -1) 

vdWrite(24,0,0,"Mouse not present", attr1); 
// otherwise | 


else 
{ 
// prepare message buffer 
memset (message ,0, 80); 
sprintf (message, 
"There is a 4d mouse button present.", 
mouse_present); 
vdWrite(24,0,0,message, attri); 


// turn on the mouse 
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mson(); 
} 


VULTTTTTVTTLTTTA DATTA TT 
/ 


/ 

// set event loop flag to aTRUE 
// - which continues event queue 
// looping 


event_loop = aTRUE; 


SIVILPTTLLAT LTD TATA TT 


// begin event queue loop 
// 


do 

{ ' 
SISLTTTTTTTT TTT TTT TT 
If 
// check to see if there has been a 
// key press event 
// 


key_event = gtKBstat(); 


SITTTITTLTT TTL TTT TTT TT 
/ 


/ 
// if there has been no key press 
// event then report mouse status 


if(!key_event) 
{ 


// if mouse present then 
// evaluate mouse status 


1f(mouse_present>0) 


// get mouse location and 
// button press status 


button = msstat(&mouse_x,&mouse_y); 


// report mouse location - 

// 

// NOTE: mouse_x and mouse_y 

// are divided by 8 to convert 

// mouse position to text mode 

// coordinates. This conversion 
// will prove of great value 

// when writing a mouse and 

// keyboard driven interface 


memset (message, 0,80); 
sprintf (message, 


"Mouse X = 403d | Mouse Y = %03d", 
mouse_x/8,mouse_y/8); 
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vdWrite(22,0,0,message, attr2); 


// print button status report 


if (but ton==LEFTBUTTON) 

vdwrite(21,0,0,"Left Button Pressed ",attr2); 
else if (button==RIGHTBUTTON) 

vdWrite(21,0,0,"Right Button Pressed ",attr2); 
else if (button==CNTRBUTTON) 

vdWrite(21,0,0,"Center Button Pressed ",attr2); 
else 

vdWrite(21,0,0,"NO Button Pressed " attr2); 
> 


} 
VITILITTATTTT TTT ATTA TT 
/ 


// key event has occurred 
If 


else 
{ 
// print key scan & character to screen 


memset (message ,0,80); 

sprintf (message, 
"Last Key: Scan: %02Xh | Char: %02Xh | %c |", 
Cint)((key_event&0xff00)>>8), 
Cint)key_event&0x00ff, 
(char )key_event&0x00f f ); 


vdWrite(23,0,0,message,attr3); 
// if F10 key pressed then EXIT loop 
if (key_event==F 10) 


event_loop = aFALSE; 
) 


SITTLTTTTTLLT PLT T ALTA TAT T 

| // 

i // continue event queue loop or terminate 
J // event queue handler 

// 

}) while(event_loop); 


CULL 
// 


// if mouse is present then turn mouse off 
// | 


if (mouse_present) 


msof f(); 
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VILTIVITTTTTTTT TATA 
// 
// clear the screen 


// 
scrncir(); 


) 


Making the menu demonstration 
mouse- and keyboard-driven 


The demonstration program PROG33.C, discussed in this section, is basi- 
cally the same menu demonstration presented in PROGS3O.C (chapter 7, 
FIG. 7-27). There is one major distinction, however, between these two pro- 
grams. PROGS33.C uses the event queue handler principles presented in 
PROG32.C (FIG. 8-6) so that the menu program may process input from 
both the keyboard and the mouse. 

If you wish to select a menu item, you may do it in two ways. You may 
use the arrow keys to highlight the item you wish to select. Pressing the 
Enter key initiates action. Or, you may move the mouse over an item and 
click the mouse button to select it. Pressing the right mouse button func- 
tions in the same fashion as the Enter key press from the keyboard. 

Compile PROG33.C, shown in FIG. 8-7, and link the resultant 
PROG33.OBJ object module with your TABS.LIB file. Running PROG33 
.EXE demonstrates the functioning of a mouse and keyboard driven user 
interface. 


8-7 The source code listing to PROG33.C. 


FITTLLTTLTT TTT T TTT 
// 


// PROG33.C 

// 

// Description: 

// Demonstration program which 

// shows how to create a shadowed 
// LOTUS style window, a shadowed 
// GRID style window, and a 

// shadowed POP UP style window 
If 

// This program has been designed 
// for keyboard input or mouse input 


SILTTLTTTTATTTT TTT TATA TT 
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VISITA ATTT ATLAS 


// 
// Include Files */ 
// 


#include <stdio.h> 
#include <tproto.h> 


CULL 


// 
// function prototypes 
// 


int tgrid(void); // display grid type window 

void infol(void); // simple pop-up information window 
int tlotus(void); // display lotue style window 

int main(void); // program main 

void shadWind(RECT *, int); // shadow window routine 

void report_status(void); // report status of input 
void remove_report(void); 

void report(void); 

int show_mouse( void); 

void holder(void); 


SULITTTTTTLLT TTT TTT 
I] 


// Make variables which must retain their */ 
// value after the function exits, global */ 
// 


int lotus_flag=0; 

int lotus_item=0; 

int old_lotus=0; 

int grid_item=0; 

int old_grid=0; 

int grid_flag=0; 

int sattr; 

int lattr; 

int mouse_installed=0; 
int red_attr,green_attr; 


SULLTTLLLTLLTT TILT TLD TTT TTT 
// 


// Structute Declatations 
// 


// Pointers to Window Structures 


WIND *REPORT; 
WIND *FIRST; 
WIND *GRID; 
WIND *INFORM; 
WIND *LOTUS; 


// shadow rect structures 


RECT *RREPORT; 
RECT *RFIRST; 
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RECT *RGRID; 
RECT *RINFORM: 
RECT *RLOTUS; 


ULL 


// 


// Window Messages 


// 


// Messages for FIRST Window 


char title[29] 


= " MMenu Demonstration Program 


unsigned char i_bar [31] = { 
195,196, 196, 196, 196, 196, 196, 196, 196, 
196,196, 196, 196,196, 196, 196, 196, 196, 
196, 196,196, 196, 196, 196, 196,196,196, 
196, 196,196,180 }; 


char item1 [29] 
char item2 [29] 
char item3 [29] 
char item (29] 


// Messages for LOTUS 


char menu [47] 
char mess1 [47] 
char mess2 [47] 
char mess3 [47] 
char mess4[47] = 
char mess5 [47] 


Lotus Style Menu 
Grid Style Menu 


Some Historical Information 


Quit C-erious Demo 


Window 


ue 
a 


Mean Mode Median Range Standard Deviation " 
Mean is the Average score of the distribution " 


Mode is the most frequent score 

Median is the middle score of sample 

" Range is the distance from highest to lowest 
" Standard dev. is avg. distance from mean 


// lot_map holds mess column offset & length 


int lot_map[5] [2] = ¢ 


1,6, 
7,6, 
13,8, 
21,7; 
28,20 ); 


// messages for GRID window - holds row & colum) 


char gmenu[21] 


char grid1[(21] =n 1 2 3 
char grid2[21] =u 4 5 6 
char grid3[21] =o 789 
char grid4[21] = " Press ENTER to Exit "; 


SELECT A NUMBER 


// grid_map row,column for start of inverse item 


int grid_map(9] [2] = ¢ 


3,7, 
3,10, 
3,13, 
4,7, 

4,10, 
4,13, 
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ae oe 
5,10, 
5,13 ); 


// infol window data 


char speed! [28] =" TSR 'C'ERIOUS History "; 
unsigned char speed2 (30) = { 
199, 196,196, 196, 196,196, 196,196,196, 
196, 196,196, 196, 196, 196, 196, 196,196, 
196,196, 196, 196, 196, 196, 196,196, 196, 
196,196,182 }; 


char speed3 [28] = TSR SYSTEMS LIMITED te 
char speed4 [28] Si, see Somes a aca eee a 
char speed5 [28] mun 'C'erious programs Ws 
char speedé [28] = by satvic fellows. Ns 
char speed? [28] a ala "; 
char speed8 [28] =" Press ANY KEY to exit. "; 


VILTLTTTTTATT TTT 
// more global variables 


// 
int xinverse; // attribute for inverse 
int hl_tense; // highlight bar intensity 


SISITTTITTTTTTLLAT TTT TTT TTT 


/ 

// Lotus Style Window 

// 

// Receives: nothing 

// Returns: item selection number 
// 

// Displays Lotus style window 
// with attendant cursor, high- 
// light and item description 
// routines. 

// 


int 

tlotus() 

{ 

int key; // scan and char value 
int exit; // val for loop cond chk 
int exp_a; // item explanation attr 


ULL 

// 

// Initialize lotus menu window structure and display window */ 
// 

/{/ Set lotus explanation Attr - Fore,Back, Intensity,Blink 

exp_a = mkAttr(MAGENTA,BLUE,ON_INTENSITY,OFF_BLINK); 


// call window initialization routines only once 
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if(! lotus flag) 
{ 


// ensure window startup bypassed nexe window call 
lotus_flag=1; 
// Allocate memory and return pointer to structure 


LOTUS = setWind(LOTUS ,6,20,9,68); 
RLOTUS = setRect(RLOTUS,6,20,9+1,68+1); 


// save shadow rectangle 
saveRect(RLOTUS); 
// Set Window Attr - Fore,Back, Intensity,Bl ink 
setAttr(LOTUS,mkAttr(WHITE,BLUE,ON_INTENSITY,OFF_BLINK)); 
// Set Window Border - top, bot, left, right 
setBord(LOTUS,S S_S S); 
// Set the top and bottom title - 0 set no bottom title 
setTitle(LOTUS," Lotus Style Window "); 
// Display window 
strtWind(LOTUS); 
sige: 
dispWind(LOTUS); 
// shadow window 
shadWind(RLOTUS, lattr); 
// set loop condition 
exit=aFALSE; 
// print lotus first item 
wvdwWrite(LOTUS,1,1,47,menu1,LOTUS->attr); 
wvdAttr(LOTUS, 1, lot_map[lotus_item] [0], 
lot_map[lotus_item] [1], 
hl_tense); 
// print item explanation 


switch(lotus_item) 


{ 

case 0: 
wvdwrite(LOTUS,2,1,47,messi,exp a); 
break; 
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case 1: 
wvdWrite(LOTUS,2,1,47,mess2,exp_a); 


break; 


case 2: 
wvdWrite(LOTUS,2,1,47,mess3,exp_a); 


break; 


case 3: 
wvdwrite(LOTUS,2,1,47,mess4,exp a); 


break; 


: case 4; 
| wvdwWrite(LOTUS,2,1,47,mess5,exp a); 
| break; 
} 
// report that LOTUS window is active 


wvdWriteCREPORT,3,2,21,"Lotus Window Active "“,red_attr); 


// mouse on 


if (mouse_instal led) 
mson(); 


// short delay 


; key=0; 
holder(); 


' as 
{ 
// Write title bar - erasing old inverse 


if(lotus_item != old_lotus) 


{ 
// turn mouse off 


msoff(); 

// re-write lotus top 

wvdWrite(LOTUS,1,1,47,menu1,LOTUS->attr); 

// Inverse proper menu item using lot_map[] [] 

wvdAttr(LOTUS,1,lot_map[lotus_item] [0], 
lot_map[lotus_item] [1], 


hl_tense); 
old_lotus=lotus_item; 


// print item explanation 


switch(lotus_item) 
{ 
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case 0: 
wvdWrite(LOTUS,2,1,47,mess1,exp_ a); 
break; 


case 1: 
wvdwWrite(LOTUS,2,1,47,mess2,exp a); 
break; 


case 2: 


wvdWrite(LOTUS,2,1,47,mess3,exp_a); 
break; 


case 3: 
wvdWrite(LOTUS,2,1,47,mess4,exp_a); 
break; 


case 4: 
wvdWrite(LOTUS,2,1,47,mess5,exp_a); 
break; 

> 

// turn mouse on 


mson(); 
) 


// get key press 


key = gtKBstat(); // get scan & char- no wait 
if((!key)&&(mouse_instal led)) 
{ 
key = show_lotus(); // show the mouse location 
if(key == 255) 
key=0; 


else if(key==254) 
key=ENTER; 

else 
lotus_item=key; 


> 
switch(key) 
{ 
case RIGHT_ARROW: // At right item? 


if(lotus_item==4) // Yes? 
lotus_item=0; // set left item 


else // Else 
lotus_item++; // move rt 1 item 
break; 


case LEFT_ARROW: // At left item? 
if(lotus_item==0) // Yes? 
lotus_item=4; // set right item 


else // Else 
lotus_item--; // move lft 1 item 
break; 
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case ENTER: 
exi t=aTRUE; 
break; 
> 
> while(!lexit); 
// turn the mouse off 


if(mouse_instal led) 
msof f(); 


// Remove Lotus Window 

remvwind(LOTUS); 

// remove shadow rectangle 
restRect(RLOTUS); 

// return selected item number 
return(lotus_item); 

} 
SILILSTTTLTTTLT TST TDT TTT TTT ATT 
iy Grid Style Window 

i Receives: nothing 


// Returns: item selection number 


// 

// Displays Grid style window 
// with attendant cursor & high- 
// light description routines. 


IT 
SILTTTLTTT LTT AT TTT TLL TT 
SILTTILTTTTTLT TTL TTT TT 


// Make variables which must retain their 
// value after the function exits global 


// 
VILTTLVTTTTTT DATTA TATA 
int 

tgrid() 

{ 


int key; // scan and char value 
int exit; // val for loop cond chk 


CULL 


// Initialize grid menu window structure 
// and display window 
// 


SULTLTTTTLTITLT LL TLT TTT TTT 
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if(!grid_flag) 
it ensure window initialization bypass 
grid_flag=1; 
// Allocate memory and return pointer to structure 


GRID = setWind(GRID,10,10,18,32); 
RGRID = setRect(RGRID, 10,10, 18+1,32+1); 


// save shadow rectangle 

saveRect(RGRID); 

// Set Window Attr - Fore,Back, Intensity, Blink 
setAttr(GRID,mkAttr(WHITE,RED,OFF_INTENSITY,OFF_BLINK)); 
// Set Window Border 

setBord(GRID,D_D DD); 

// Set the top and bottom title - 0 set no bottom title 
setTitle(GRID," Grid Style Window "); 

// Display window 

igi a 


else 
// display window 


dispWind(GRID); 
// draw shadow 
shadWind(RGRID, lattr); 
// Write name and exit messages 
wvdwrite(GRID,1,1,21,gmenu,xinverse); 
wvdWrite(GRID,7,1,21,grid4,GRID->attr); 
wdWrite(GRID,7,8,5, "ENTER" ,mkAttr(WHITE,RED,OFF_INTENSITY,ON_BLINK)); 
// Write grid entries bar 
wvdWrite(GRID,3,1,21,grid1,GRID->attr); 
wvdWrite(GRID,4,1,21,grid2,GRID->attr); 
wvdwrite(GRID,5,1,21,9rid3,GRID->attr); 
// Inverse proper menu item using grid_map[] (] 


wvdAttr(GRID,grid_map[grid_item] [0] ,grid_map[grid_item] (1],3,xinverse); 


// set old grid to new grid 
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old_grid = grid_item; 

// set loop condition 

: exit=aFALSE; 

// turn the mouse on if installed 


| if (mouse_instal led) 


| do 
: { 
wvdWrite(REPORT,3,2,21,"Grid Window Active ",red_attr); 


if(grid_item != old grid) 
{ 
// turn the mouse off 


msoff(); 

// Write grid entries bar 
wdWrite(GRID,3,1,21,grid1,GRID->attr); 
wvdWrite(GRID,4,1,21,grid2,GRID->attr); 
wdWrite(GRID,5,1,21,grid3,GRID->attr); 


// Inverse proper menu item using grid_map[] [] 


// set old grid to new grid 
old_grid = grid_item; 

// turn the mouse on 

: | mson¢ ); 

} 


key = gtKBstat(); // get scan & char- no wait 
1f((!key)&&(mouse_instal led)) 
{ 


key = show_grid(); // show the mouse location 
if(key == 255) 
key=0; 
else if (key==254) 
key=ENTER; 
else 
grid_itemkey; 


switch(key) 
{ 


case RIGHT_ARROW: 
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| wvdAttr(GRID,grid_map(grid_item] [0] ,grid_map(grid_item] [1],3,xinverse); 
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// IF rt col->mv to left col ELSE->mv rt 


if( (grid_item==0) 
(grid_item==3) 
(grid_item==6) 
grid_item++; 

else if(grid_item==2) 
grid_item=0; 

else if(grid_item==5) 
grid_item=3; 

else 
grid_item=6; 

break; 


(grid_item==1) 
(grid_item==4) 
(grid_item==7) ) 


case LEFT_ARROW: 


// IF left col->mv to rt col ELSE->mv left 

if€ (grid_item==2)| |(grid_item==1) 
(grid_item==5)||(grid_item==4) 
(grid_item==8)||(grid_item==7) ) 
grid_item--; 

else if(grid_item==0) 
grid_item=2; 

else if(grid_item==3) 
grid_item=5; 

else 
grid_item=8; 

break; 


case DOWN_ARROW: 

// TF bottom row->mv to top row ELSE->mv down 

if(grid_item<=5) 
grid_item += 3; 

else if(grid_item==6) 
grid_item=0; 

else if(grid_item==7) 
grid _item1; 

else 
grid_item2; 

break; 


case UP_ARROW: 
// IF top row->mv to bottom row ELSE->mv up 
if(grid_item>=3) 
grid_item -= 3; 
else if(grid_item==0) 
grid_item=6; 
else if(grid_item==1) 
grid_item=7; 
else 
grid_item8; 
break; 
case ENTER: 
exit=aTRUE; 
break; 
> 


> while(!exit); 
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// remove mouse 
msoff(); 
// Remove Lotus Window 


remvWind (GRID); 
// remove shadow 


restRect(RGRID); 
// return selected item 


return(grid_item); 
> 


SILTTTTLLLTLTLLT TTT TTA TT 


// 
If 
// Simple Style Window 


// 

// Receives: nothing 

// Returns: nothing 

If 

// Displays Simple pop up 
// information window. 

Ii 


// 
SITTVLTTLLTTLT TTT TTL TTL TT 


SITTLITTLITTTTTTT LLL T LTT 
// 


// Make variables which must retain their 
// value after the function exits global 


// 
CULL 


int infol_flag=0; 


void 
info1() 

{ 

int e_ flag; 
int key; 
int x,y; 


SILTVISLLTTTTTTTLT TTT TT 


// Initialize grid menu window structure 
// and display window 


// 
VULTITTTTLLLTT TV LTT TTT TT 
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if(!infol_flag) 
i ensure window initialization bypass 
infol_flag=1; 
// Allocate memory and return pointer to structure 


INFORM = setWind( INFORM, 12-5,20-5,22-5,49-5); 
RINFORM = setRect(RINFORM, 12-5, 20-5, 22-5+1,49-5+1); 


// save shadow rectangle 
saveRect(RINFORM); 
// Set Window Attr - Fore,Back,Intensity,Bl ink 
setAttr(INFORM,mkAttr(BLACK,CYAN,OFF_INTENSITY,OFF_BLINK)); 
// Set Window Border 
setBord(INFORM,D_D DD); 
// Set the bottom title 
setTitle( INFORM," Esoteric Information "); 
// Display window 
strtWind( INFORM); 
bet: 
dispWind¢ INFORM); 
// display shadow 


shadWind(RINFORM, lattr); 


wvdwWrite(REPORT,3,2,21,"Info Window Active ",red_attr); 
// Write menu and exit messages 


wvdwWriteC INFORM,1,1,28,speedi, 
mkAttr(CYAN,BLACK,OFF_INTENSITY,OFF_BLINK)); 

wvdWrite(C INFORM,2,0,30,speed2, INFORM->attr); 
wvdwWrite( INFORM,3,1,28,speed3, INFORM->attr); 
wvdWrite(C INFORM,4,1,28,speed4, INFORM->attr); 
wvdWriteCINFORM,5,1,28,speed5, INFORM->attr); 
wvdWrite( INFORM,6, 1,28, speed6, INFORM->attr); 
wvdwr i teC INFORM, 7,1,28,speed/, INFORM->attr); 
wvdWr ite( INFORM,8,0,30,speed2, INFORM->attr); 
wvdWrite( INFORM,9,1,28,speed8, INFORM->attr); 


// turn on the mouse 
mson(); 


// wait for key press or right button press 
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e_flag=0; 
holder(); 


tKBstat(); 


©o @ 
me 


// scan for key press 


key = gtKBstat(); 
if((!key)&&(mouse_instal led)) 


{ 
key = msstat(&x,&y); 
if (key==2) 
e_ flag=1; 
key=0; 
} 
if (key) 
e flag=1; 


} while(te flag); 


// turn off the mouse 

msoff(); 

// remove window and display original screen information 
remwWind( INFORM); 

// remove shadow 

restRect(RINFORM); 


) 


SIVTTTTTTLTTT TDL TTA TS 
I 


// Filter the key press for 
// first letter 


// 
UU 
int filter_key(int); 

int 

filter_keyCint key) 

{ ‘ 
int row; 

row = 0; 

// mask all but 8 bit char code 
key & 0x000000ff; 


// set row value according to key press 
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if((key=='l")| |Ckey=='L')) 
row=3; 


else if((key=='g')||(key=='G')) 
row=4: 

else if((key=='s')||(key=='S')) 
row=5; 


else if((key=='q')||(key=='Q')) 
{ 


row=6; 
> 

else 
row=row; 


return row; 
} 


SITLTTLLTTTTTTT TTT LTT TA TT 
// 
// 


// Simple Style Window 

// 

// Receives: nothing 

// Returns: nothing 

// 

// Displays Simple pop up 
// information window. 

// 


// 
SITTTVLTTTLTTAT TTT TATA TT 


SITTVTLTTTTLTTT TDA TTT TTA TT 
/ 


// Make variables which must retain their 
// value after the function exits global 


// 
CULL 


void 
report() 
{ 


VIVIITITAELITTDT TTT T TTT TTT 
// 


// Initialize grid menu window structure 
// and display window 
// 


VILVTTLTTTTITT DTT T TTT TTT TT 


// Allocate memory and return pointer to structure 


REPORT = setWind(REPORT, 16,50,20, 78); 
RREPORT = setRect(RREPORT, 16,50, 20+1, 78+1); 


// save shadow rectangle 
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saveRect (RREPORT); 


// Set Window Attr - Fore,Back, Intensity,Bl ink 


a // Set Window Border 
setBord(REPORT,D_D DD); 


// Set the bottom title 


setTitle(REPORT," Program Status "); 


// Display window 


strtWind(REPORT); 

// display shadow 
shadWind(RREPORT, sattr); 

// Write menu and exit messages 


//wedir i teCREPORT,1,1,28, speed, 

// mkAttr(CYAN,BLACK,OFF_INTENSITY,OFF_BLINK)); 
//wdiir i teCREPORT ,3, 1,28, speed3 ,REPORT->attr); 
//wedlriteCREPORT ,4, 1,28, speed4 ,REPORT->attr); 

"| //wvdir iteCREPORT ,5, 1,28, speed5 ,REPORT->attr); 

7 //wvdr i teCREPORT ,6, 1,28, speed6, REPORT->attr); 
//wedWriteCREPORT,7,1,28,speed7,REPORT->attr); 
//wvdWriteCREPORT ,8,0,30,speed2,REPORT->attr); 

//wvdWr iteCREPORT ,9, 1,28, speed8, REPORT->attr); 


} 

int 

tl show_lotus() 

int x,y,rattr; 

int button; 

char buffer (30); 

rattr = mkAttr(WHITE,GREEN,ON_INTENSITY,OFF BLINK); 
button = msstat(&x,&y); 


sprintf (buffer,"Mouse X=%03d Mouse Y=%03d",x,y); 
wrdWriteCREPORT,2,2,24,buffer,rattr); 


if (but ton==2) 
return 254; 


if(y!=56) 


return 255; 
else if((x>=168)&&(x<=208)&& (but ton==1)) 
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return 0; 

else if((x>=216)&&(x<=256)&& (but ton==1) ) 
return 1; 

else if((x>=264)&&(x<=320)&& (but ton==1)) 
return 2; 

else if((x>=328)8&&(x<=376)&& (but ton==1)) 
return 3; 

else if((x>=384)&&(x<=536)&& (but ton==1)) 
return 4; 

else 
return 255; 

} 


int 

show_grid() 

{ 

int x,y,rattr; 

int button; 

char buffer [30]; 

rattr = mkAttr(WHITE,GREEN,ON_INTENSITY,OFF_ BLINK); 


button = msstat(&x,é&y); 
sprintf(buffer,"Mouse X=%03d Mouse Y=%03d", x,y); 
wvdwrite(REPORT,2,2,24,buffer,rattr); 


if (but ton==2) 
return 254; 


if(¢y<104) | | Cy>120)) 
return 255: 

else if(Cy==104)&&(x>=136)&&(x<=152)&& (but ton==1)) 
return 0; 

else if ( (y==104)&&(x>=160)&&(x<=176)&&( but ton==1) ) 
return 1; 

else if((y==104)&&(x>=184 )&&(x<=200)8&&( but ton==1) ) 
return 2; 

else if(Cy==112)&&(x>=136 )&&(x<=152)&&( but ton==1) ) 
return 3; 

else if((y==112)&&(x>=160 )&&(x<=176 )&& (but ton==1)) 
return 4; 

else if((y==112)8&&(x>=184 )&&(x<=200)&&( but ton==1 )) 
return 5; 

else if((y==120)&&(x>=136)&&(x<=152)&& (but ton==1) ) 
return 6; 

else if((y==120)&&(x>=160 )&&(x<=176 )&& (but ton==1) ) 
return 7; 

else if ((y==120)&&(x>=184 )&&(x<=200)&& (but ton==1)) 
return 8; 

else 
return 255; 

} 


int 

show_mouse( ) 

{ 

int x,y,rattr; 

int button; 

char buffer [30]; 

rattr = mkAttr(WHITE,GREEN,ON_INTENSITY,OFF_ BLINK); 


252 Foundation mouse routines 


8-7 Continued. 


button = msstat(&x,&y); 
sprintf (buffer,"Mouse X=%403d Mouse Y=%03d"",x,y); 
wvdWriteCREPORT,2,2,24,buffer,rattr):; 


1 f(x>264) 
return 0; 

else if(x<40) 
return 0; 

else if(y>72) 
return 0; 

else if(¢y<40) 
return 0; 

else if((y==40)&&( but ton==1) ) 
return K_L; 

else if((y==48)&&(button==1) ) 
return K_G; 

else if((y==56)&& (but ton==1)) 
return K_S; 

else if((y==64)&& (but ton==1)) 
return K_Q; 

else 
return 0; 


) 


void 
remove_report() 


{ 
// remove window and display original screen information 


remvWind(REPORT ); 
// remove shadow 
restRect(RREPORT); 


) 


SITTTTSTT TILT TTT LLL TTT TS 
/ 


// int main(void) 

If 

// Receives: nothing 

// Returns: nothing 

// 

// Sets up the FISRT window 
// display and contains the 
// scroll bar menu selection 
// routine. 

// 


// 

VILUITLLAIVTTT LTDA 
int 

main ) 


{ 
int key; // recieves Scan & char key code 


Making the menu demonstration mouse- and keyboard-driven 253 


8-7 Continued. 


int exit; // holds val for main loop check 
int old_row; // Tracker for highlight bar 
int row; // Tracker for highlight bar 


int intense; // intensity attribute value 

int ret_val; // return value from filter_key 

int rattr,screen_attr; 

int count; 

// initialize video 

vidiInit(); 

// set main window shadow attribute 

rattr = mkAttr(WHITE,BLUE,OFF_INTENSITY,OFF_ BLINK); 


// set program info message attribute 


red_attr = mkAttr(WHITE,RED,OFF_INTENSITY,OFF BLINK); 
green_attr = mkAttr(WHITE,GREEN,ON_INTENSITY,OFF_BLINK); 


// set secondary window shadow attribute 


lattr = mkAttr(WHITE,BLACK,OFF_INTENSITY,OFF_BLINK); 

// set main window shadow attribute 

sattr = mkAttr(WHITE,BLACK,OFF_INTENSITY,OFF_BLINK); 

// Set global attribute intense for inverse video 

xinverse = mkAttr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK); 

// set global attribute hl_tense for WHITE,WHITE, INTENSE,OFF_BLINK 
hl_tense = mkAttr(WHITE,WHITE,ON_INTENSITY,OFF_BLINK); 

// Set intense text attribute for this window 

Intense = mkAttr(WHITE,MAGENTA,ON_INTENSITY,OFF_ BLINK); 

// Set intense text attribute for this window 


screen_attr = mkAttr(BLACK WHITE,OFF_INTENSITY,OFF_BLINK); 


SILTTATTTITTTT TATA 
If 

// turn the screen white 

// 


for(count=0; count<25; countt++) 
vdAttr(count,0,80,screen_attr); 


// open report window 


report(); 
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// check for mouse installed 
ret_val = msinit(); 


if(ret_val==0xffff) // no mouse 
wvdwrite(REPORT,1,2,18,"No mouse installed", rattr); 
else 


{ 
wvdWrite(REPORT,1,2,18,"Mouse installed ",rattr); 


mouse_instal led=1; 
} 


// Turn off the cursor and save location 


offCur(); 
sCloc(); 


CULL 
// 


// Initialize main menu window structure and display window 


// 


// Allocate memory and return pointer to structure 


FIRST = setWind(FIRST,2,4,9,34); 
RFIRST = setRect(RFIRST,2,4,9+1,34+1); 


// save shadow rectangle 
saveRect(RFIRST); 


// Set Window Attr - Fore,Back, Intensity, Blink 


setAttr(FIRST,mkAttr(WHITE,MAGENTA,OFF_INTENSITY,OFF_BLINK)); 


// Set Window Border - top, bot, left, right 
setBord(FIRST,D_D_S S); 

// Set the top and bottom title 
setTitle(FIRST," Cerious Mouse Menu "); 

// Display window 

strtWind(FIRST); 

// shadow window 

shadWind(RFIRST,sattr); 


// Write menu name & line below to window 


wydWrite(FIRST,1,1,29,title,xinverse); 
wdWrite(FIRST,2,0,31,i_bar,FIRST->attr); 


// Write menu items to window 


wydWrite(FIRST,3,1,29,item1,FIRST->attr); 


Making the menu demonstration mouse- and keyboard-driven 


255 


8-7 Continued. 


wdWriteCFIRST,4,1,29, item2, FIRST->attr)> 
wvdWrite(FIRST,5,1,29, item3, FIRST->attr); 
// wdWrite(FIRST,6,0,31, i_bar, FIRST->attr); 
wvdWrite(FIRST,6,1,29, itemS, FIRST->attr); 


// highlight first letter of item 


wvdAttr(FIRST,3,2,1, intense); /* L intense */ 
wvdAttr(FIRST,4,2,1, intense): /* G intense */ 
wvdAttr(FIRST,5,2,1, intense); /* S intense */ 
wvdAttr(FIRST,6,2,1, intense); /* Q intense */ 


// Set highlight trackers to start at item! (row 3) 


row = 3; 
old_row = 3; 


// Set loop condition 
exit = aFALSE; 
UU 


// 
// highlight first row 
// 


wvdAttr(FIRST,old_row,1,29,FIRST->attr); // off highlight 
wvdAttr(FIRST,old_row,2,1,intense); // intense item let 
wvdAttr( FIRST, row, 1,29,xinverse); // on highlight bar 
wvdAttr(FIRST,row,2,1,hl_tense); // intense HB letter 
old_row = row; // reset OFF tracker 


VULLITTTTTA TTT T DATTA 
// turn the mouse on 


// 
mson(); 


SUTLLTTLPAT LTT TTT TTT TTL TT 


// 

// Main keyboard loop. Selects: tlotus(), tgrid(), 
// infoi(), & quits 

// Up,Down arrow or First letter move highlight bar 
// 


CULL 


do 
{ 
wvdWriteCREPORT,3,2,21,"Main Window Active ",red_attr); 


if(old_row != row) 
{ 
if (mouse_instal led) 

msoff(); 

wvdAttr(FIRST,old_row,1,29,FIRST->attr); // off highlight 
wvdAttr(FIRST,old_row,2,1,intense); // intense item let 
wvdAttr( FIRST, row, 1,29,xinverse); // on highlight bar 
wvdAttr( FIRST, row,2,1,hl_tense); // intense HB letter 
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old_row = row; 

if(mouse_instal led) 
mson¢ ); 

) 


key = gtKBstat(); 


// reset OFF tracker 


// get scan & char- no wait 


if((!key)&&(mouse_instal led) ) 


{ 
key = show_mouse(); 


switch(key) 
{ 
case K_L: 
if (row==3) 
key=ENTER; 
break; 
case K_G: 
if (row==4) 
key=ENTER; 
break; 
case K_S: 
if (row==5) 
key=ENTER; 
break; 
case K_Q: 
1 f (row==6) 
key=ENTER; 
break; 


> 
switch(key) 


// show the mouse location 


// eval key press 


{ 
// Arrow key and Enter Key presses 


case DOWN_ARROW: 
1f (row==6) 
row=3; 
else 
rowt+: 
break; 
case UP_ARROW: 


// If bottom row 
// then->top row 
// Otherwise 

// then down row 


if (row==3) // \f row 3 


row=6; 
else 
row--? 
break; 
case ENTER: 
switch(row) 
{ 
case 3: 
msof f(); 


tlotus(); 


mson(); 
break; 


case 4: 


msof f(); 


// then->bot row 
// Otherwise 
// then up row 


// Eval selection 


// sel. lotus demo 
// turn mouse off 


// turn mouse on 


// turn mouse off 
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tgrid(); // sel. grid demo 
mson(); // turn mouse on 
break; 

case 5: 
msoff(); // turn mouse off 
info1(); // simple demo 
mson(); // turn mouse on 
break; 

case 6: // Exit option 
exi t=aTRUE; 
break; 

> 

break; 


// First letter of Item Press 


default: 
// filter key press 


ret_val = filter_key(key); 
// if key not valid then exit 
if(tret_val) 


break; 
else 


// otherwise set row 
row=ret_val; 
break; 
) 
key=0; 
>} while (lexit); 
// delay here 
holder(); 
// remove window and restore originial screen 
remvdind( FIRST); 
// restore shadow rectangle 
restRect(RFIRST); 
COU 


// 
// close the report window 
II 


remove_report(); 


// turn off the mouse 
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msoff(); 
H UU 


| // turn the screen normal 
| // 


: for(count=0; count<25; count++) 
7 vdAttr(count,0,80, 7); 

// turn on the cursor 

onCur(); 


// restore cursor location 


rCloc(); 

| // return to DOS 

| return(0); 

} 

SITTTTTTTTTL TTT AT 
// 

// shadWind(...) 

II 

// shadow window 


// 
SILTIVTTLLTTLATLT TAT TTT TL 


void 
shadWind(RECT *R, int sattr) 
{ 


4) int count; 

// highlight row below rectangle 
vdAttr(R->lr_row,R->ul_col+1,R->lr_col-R->ul_col-1,sattr); 
7 // highlight column right of rectangle 


for(count=R->ul_row+1; count<R->lr_row+1; count++) 
vdAttr(count,R->lr_col,1,sattr); 


} 

void 

holder¢) 

int 11,12; 

for(il=0; 11<50; i1++) 


for(i2=0; 12<3000; i2++) 
12=12; 
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} 
tI 


// End of PROG33.C source file 


// 
SULTTLLTTTT TTT TTA TT 


Summary 


This chapter presented four mouse-handler utility routines. Function 
msinit(...) initialized the mouse, function mson(...) turned the mouse on, func- 
tion msoff(...) turned the mouse off, and function msstat(...) reported the but- 
ton press status and mouse X and Y location. These functions were pulled 


together to create an event queue handler. 


The event queue handler may be thought of as a program separate 
from your application that may be polled for information on whether a 
keyboard or mouse-related event had occurred. Once the event has been 
reported by the event queue handler to your application, it is your applica- 
tion’s responsibility to process the event report and take appropriate 


action. 


Figure 8-8 represents the source code listing the current contents of 


your TABS.LIB file. 


8-8 The TABS.LIB library current listing. 


@bleep.....ceceaee bleep 
AclrRect..ccccccces clrrect 
@diSPWind......00. dispwind 
@exit_bad......... exit_bad 
BOUCUP cc Vissi e wees gtcur 
MOF FCur...cceccees of fcur 
@putChr....ceccee putchr 
OPClOCesecsceseud. rcloc 
MrGWwind..wecscsces rdwind 
@restRect...csweee restrect 
QrMvCur. cwsescccee rmvcur 
DSAVERECT. wn eases saverect 
MSClLOC swiece vee ses scloc 
QsetBord...scscee setbord 
asetTitle......ce. settitle 
OSiZeCuUr..cecccves sizecur 
@SIZERECt....cceee sizerect 
QstrtWind.......e. strtwind 
avrdChar...secscce vrdchar 
QWrIMG..ccecccsees wrimg 
QWVGAttr. wcccccncee wvdattr 
QWVGHOPiZ.wccccece wvdhoriz 
OWVGVert.ccsccccce wvdvert 
QwyrdChar..ccscces wvrdchar 
JOU iesesewteetans vidinit 
_defkey2........ . .vdedit 
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DDOXRECT.. wee ecces boxrect 
Adelay....cscceees delay 
DdSYWind...ceccees dsywind 
afillRect......... fillrect 
@gtKey....ccececes gtkey 
DONC. . cc ececces oncur 
QPuUtStr...eccccens putstr 
OrdIMg...ceccccees rdimg 
QreMVWINd. ..cccecs remvwind 
@restScrn..ceccece restscrn 
a@rsizeCur......... ssjzecur 
@MSaveScrn..ceccees savescrn 
@SCtAttr..wcevcees setattr 
@setRect...ccccees setrect 
@SCtWINd...ceevees setwind 
QSIZEIMG..nceccces sizeimg 
QSSsizeCur..ccccees ssizecur 
QVGECIt...cccccces vdedit 
@WrBOX. .cccceucces wrbox 
QwWrWind...cceccces wrwind 
@wvdChar...cccsees wvdchar 
MwVvdStr.wwscccccce wvdstr 
Q@WVGWrite...cceees wvdwrite 
_addijiff......... timer 
_defkey1.......... vdedit 
_defkey3.......... vdedit 
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_defkey4.....es00. vdedit _get_jiffhour..... timer 
_get_jiffmin...... timer _get_jiffy........ timer 
_get_ljiffy....... timer _gtKBstat......... gtkbstat 
_9 shape.......... g_shape _initialize_timer..timer 
_MKAttr. wc ecewces mkattr _mkToken.......0.. mktoken 
MSINIC.cccccesees msinit MSOF T adiccwwiewwale msof f 
7 SMSONsas:cccseuawes mson _msstat........2.. msstat 
a MVCUM v:56:si6 bees eins mvcur _newtimer......... timer 
“| _offSound......... of fsound _onSound.......... onsound 
SPUtCREF ci62sesewd putcrl f _remove_timer..... timer 
m _reset_timer...... timer SCPRCLP cece wie os sernclr 
_SCRNSEG.......20. vidinit _SPARKLE_FLAG..... vidinit 
_Start_timer...... timer _stop_timer....... timer 
_S_shape.......ee- s_shape VGACUC ceases cass vdattr 
_vdChar...sececoes vdchar _VGHOPIZ... ce eenee vdhoriz 
EVOVEPE cies svicece vdvert _VOWPite...ceeenes vdwrite 
VIGINI fies sedewe:s vidinit VID: PORT aes sice:c' vidinit 
mvcur Offset: 00000010H Code and data size: 15H 
_mvCur 
timer Offset: OOO000b0H Code and data size: eOH 
_addijiff _get_jiffhour _get_jiffmin _get_jiffy 
_get_ljiffy _initialize_timer _nhewt imer 
_remove_timer _reset_timer _Start_timer _stop_timer 
gtcur Offset: 00000390H Code and data size: 2cH 
agtCur 
rmvcur Offset: 000004a0H Code and data size: 30H 
armvCur 
scloc Offset: 000005e0H Code and data size: 26H 
asCloc 
rcloc Offset: 00000710H Code and data size: 10H 
arCloc 
oncur Offset: O0000830H Code and data size: eH 
a@onCur 
s_shape Offset: 00000950H Code and data size: cH 
_S_shape 
g_shape Offset: OQQ009FOH Code and data size: 7H 
_9_shape 
offcur Offset: 00000a80H Code and data size: eH 
aof fCur 
sizecur Offset: O0000ba0H Code and data size: 1aH 
asizeCur 
ssizecur Offset: O0000cbOH Code and data size: 26H 
arsizeCur @ssizeCur 
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mk token 
_InkToken 


mkattr 
_mkAttr 


sernclr 
_sernClr 


vidinit 
_ert 
_VID_PORT 


vdchar 
_vdChar 


vdwrite 
_vdWrite 


vdhoriz 
_vdHor iz 


vdvert 
_vdVert 


vdattr 
_vdAttr 


vrdchar 
avrdChar 


savescrn 
asaveScrn 


restscrn 
a@restScrn 


delay 
ade lay 


bleep 
ableep 


gtkey 
agtKey 


vdedit 
avdEdit 
_defkey4 


onsound 
_onSound 


of fsound 
_of fSound 


gtkbstat 
_gtKBstat 


Offset: OO0000dfOH 


Offset: 00000e90H 


Offset: O0000f30H 


Offset: O0000fdOH 
_SCRNSEG 


Offset: 000011a0H 
Offset: 00001270H 
Offset: 00001350H 
Offset: 00001420H 
Offset: 000014f0H 
Offset: 000015cOH 
Offset: 00001700H 
Offset: 00001860H 
Offset: 000019d0H 
Offset: 00001af0H 
Offset: 00001c30H 


Offset: 00001d30H 
_defkey1 


Offset: 00002780H 


Offset: 00002820H 


Offset: O00028b0H 
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Code and data 


Code and data 


Code and data 


Code and data 


_SPARKLE_FLAG 


Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 


Code and data 
_defkey2 


Code and data 


Code and data 


Code and data 


size: bH 
size: 17H 
size: 1aH 


71H 
_VidInit 


size: 


size: 27H 


size: 42H 
size: 2cH 
size: 32H 
size: 2eH 
size: 3cH 
size: 44H 
size: 46H 
size: 32H 
size: 2eH 
size: 14H 


Sah 
_defkey3 


size: 


size: 18H 


size: 7H 


size: 11H 
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fillrect 
afillRect 


setrect 
asetRect 


sizerect 
asizeRect 


clrrect 
aclrRect 


boxrect 
aboxRect 


saverect 
asaveRect 


restrect 
arestRect 


putcrlf 
_putCRLF 


putstr 
@putStr 


putchr 
aputChr 


wrimg 
awr Img 


wrbox 
awrBox 


wrwind 
awrWind 


rdimg 
ardimg 

sizeimg 
asizelmg 


exit_bad 
aexit_bad 


rdwind 
ardwWind 

dispwind 
adi spWind 

remvwind 
aremvW ind 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


00002950H 


00002aa0H 


00002c10H 


00002d10H 


00002e60H 


00003200H 


00003350H 


000034a0H 


00003540H 


00003690H 


00003790H 


000038d0H 


00003c50H 


00003d90H 


00003ed0H 


00003 fd0H 


00004150H 


00004290H 


000043c0H 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


$1ze: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


42H 


50H 


10H 


46H 


238H 


42H 


42H 


bH 


38H 


14H 


42H 


228H 


42H 


42H 


10H 


43H 


42H 


18H 


18H 
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msof f 
_msof f 


msstat 
_msstat 


msinit 
_msinit 

settitle 
asetTitle 


setwind 
asetWind 


setbord 
asetBord 


dsywind 
adsyWind 


setattr 
asetAttr 


strtwind 
astrtWind 


wvdattr 
awvdAttr 


wvdchar 
awvdChar 


wvdhoriz 
awvdHor iz 


wvdstr 
awvdstr 


wvdvert 
awvdVvert 


wvdwrite 
awvdwr ite 


wyrdchar 
awvrdChar 


mson 
_mson 


Offset: 


Offset: 


Offset: 


Offset: 


Of fset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


00005620H 


000056b0H 


00005750H 


000044 f0H 


00004670H 


00004880H 


00004970H 


00004ab0H 


00004ba0H 


00004d10H 


00004e40H 


00004 f60H 


00005090H 


000051cOH 


000052 f0H 


00005460H 


00005590H 
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Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


6H 


18H 


10H 


56H 


cdH 


4H 


3aH 


4H 


42H 


26H 


22H 


28H 


28H 


26H 


Sah 


20H 


6H 
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Mouse- and keyboara-driven, 
Lotus-style interface routines 


This chapter presents the complex source code listings required to create 
very powerful simple-to-use high-level functions. These high-level functions 
permit the easy creation and modification of a Lotus-style user interface. 

It is my perception that the Lotus-style interface has fallen into a back 
position as compared to the menu-bar/drop-down-window-:style interface. 
It is, nonetheless, still used by well known programs and all applications 
programmers will find it useful to be able to quickly create and modify a 
keyboard- and mouse-driven, Lotus-style user interface. 

There are basically two visual components to the Lotus-style inter- 
face. The first component is the menu bar which is displayed at the top 
(row O) of the display. There are menu items that refer to different program 
functions. 

The second visual component of the Lotus-style interface is a one-line 
explanation of the menu choice. When a menu item becomes highlighted 
the item explanation appears directly below the menu bar. As you high- 
light different menu items the appropriate item explanations appear. 

The code presented in this book permits the user to highlight a menu 
item by pressing the left or right arrow keys. If the user wishes to select a 
menu item function all he/she needs to do is press the Enter key. If a 
mouse is installed the user may select a menu item by moving the mouse 
cursor over the item and pressing the left mouse button. The keyboard 
and mouse interface functions are working all the time. If a mouse is not 
present only the keyboard will function. 

A heavily documented Lotus-style interface shell is presented in 
PROGS5.C (FIG. 9-6). Using this shell program you will be able to create 
Lotus-style interfaces in minutes. Once you have the high-level functions 
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compiled all you need to create a Lotus-style interface is to: 


1. Create an array of text that contains the menu items 
2. Create another array of text that contains item explanations 
3. Decide on your menu item, explanation, and item highlight colors 


If you decide to create a new Lotus-style interface all you need to do is 
modify the menu item name list or the menu explanation list. That’s all 
there is to creating and modifying a Lotus-style user interface. 


Preparatory files 


Before moving directly to the creation of a Lotus-style user interface, two 
preparatory routines must be presented here. Function vdChr(..) writes a 
character to the screen at a specified row and column location without 
changing the screen attribute associated with that location. VDCHR.ASM, 
shown in FIG. 9-1, is the source code to the vdChr(...) function. Assemble 
VDCHR.ASM and add the resultant VDCHR.OBJ object modules to your 
TABS.LIB, TABM.LIB, and TABL.LIB files. 


9-1 The source code listing to VDCHR.ASM. 


PILTLTTLTLLLLTTL TTDI TTT TTT TT 


:// vdchr.asm 

ff 

;// Description: 

3;// Writes a character at a 
:// specified row and column 
3// screen location without 
:// changing the existing 
:// screen attribute. 


i// 
i;// vdChr(row,col,ch) 
i// . 
:// int row row of string write 
:// int col column of string write 
3:// char ch char 
Sf 
DOSSEG 
if mdl eq 1 


-MODEL SMALL,C 
elseif mdl eq 2 

-MODEL MEDIUM,C 
else 

-MODEL LARGE,C 
endi f 


EXTRN SCRNSEG: word 
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9-1 Continued. 
- CODE 


vdChr PROC USES DI SI,prow:BYTE,pcol :BYTE, pch: BYTE 
mov CX, SCRNSEG relocate screen segment 


8 
mov ES,CX ; to ES 
xor AX , AX 3 O -> AX 
mov AL , prow 3; row -> AL 
mov BL, 160 ; 80 chars wide * 2 
mul BL : row * scrn width -> AX 
mov CL,pcol ; column to CL 
XOR CH, CH * 0 -> CH 
shl CX, 1 : col * 2 
add AX, CX : column + (row * scrn width) 
mov DI,AX 3 point DI to scrn 
mov al,pch : char to AL 
stosb ; AL -> screen 
ret 
vdChr ENDP 
END 


Function scrnAttr(...) changes the screen’s display attributes without 
altering display text. SCRNATTR.C, shown in FIG. 9-2, is the source code to 
the scrnAttr(...) function. Compile SCRNATTR.C and add the resultant 
SCRNATTR.OBJ object modules to your TABS.LIB, TABM.LIB, and 


TABL.LIB files. 


9-2 The source code listing to SCRNATTR.C. 
SILTTTTLTTIITT TTT TTT 
y SCRNATTR.C 

// 

// Change the screen attribute 
TTT 
// include files here 

#include <tproto.h> 

void 

_fastcall scernAttr(int attr) 

- row,col; 

// change screen attributes by row 
forCrow=0; row<25; row++) 


// change 80 bytes of screen attributes 


vdAttr(row,0,80,attr); 
> 


Preparatory files 
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Creating a standard pop-up window for quit program 


Function quitProgram(...) creates a pop-up window that displays when the 
quit program option has been selected. This window contains two shad- 
owed buttons. There is an OK button and CANCEL button. 

The user can depress a button by moving the mouse cursor over the 
button and clicking once or by pressing the Q key (in the case of the QUIT 
button) or the C key (in the case of the CANCEL) button. When one button 
is depressed the other button pops up. Pressing the Enter key closes the 
quit window and returns the window button-press status. 

All the user needs to do to select a Quit Window option using a mouse 
(simulating an Enter key press from the keyboard) is to place the mouse 
cursor over a depressed window button and click the left mouse button 
once. If a mouse is not active then the user can select a depressed button 
by pressing the Enter key. Function quitProgram(...) returns a FALSE (0) if 
CANCEL has been selected and a TRUE (1) if QUIT has been selected. 

Function quitProgram(...) pops what I call a standard Quit Window 
because it is standard to your TAB library. Although chapter 10 presents a 
much more complex user interface, the standard quitProgram(...) pop-up 
window is used as in the Lotus-style user interface demonstration pro- 
gram. Whenever possible I always try to create re-usable function mod- 
ules. This practice saves coding time while adding a uniform feel to all of 
your user interfaces. Not a bad practice if you are maintaining different 
programs in your stable. 

QUITPROG.C, shown in FIG. 9-3, is the source code to the quitProgram(...) 
function. This source code has been heavily commented. By carefully 
examining the code you will learn how to create 3-D pop-up buttons and to 
use the mouse and keyboard to operate on those buttons. Compile QUIT 
PROG.C and add the resultant QUITPROG.OBJ object module to your 
TABS.LIB, TABM.LIB, and TABL.LIB files. 


9-3 The source code listing to QUITPROG.C. 
UU 
// 

// QUITPROG.C 

// 
UU 
#include <stdio.h> 

#include <string.h> 

#include <tproto.h> 

extern int mouse_instal led; 
VLLLTLTATLAT LATTA AAA A A A A 
// 

// Quit program dialog box 

If 


CULL 
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void c_up(void); 

void q_up(void); 

void c_down(void); 

void q_down(void); 

void quit_holder(void); 
void quit_mess(void); 
void cancel_mess(void); 


static char buf32[] = ¢ 
32,32,32,32,32,52,52,50, 
32,32,32,32,32,32,52,32, 
32,32,52,32,32,52,52, 50, 
32,32,32,32,32,32,52,92 >; 


static char buf220[] = ¢ 

220,220, 220,220,220, 220,220,220, 
220,220,220, 220,220, 220,220,220, 
220,220,220, 220,220,220, 220,220, 
220,220,220, 220,220, 220,220,220 }; 


static char buf195[] = { 195,195 }; 

static char buf196[] = { 
196, 196, 196, 196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 196, 196, 196, 
196, 196,196, 196, 196, 196, 196, 196, 
196,196, 196, 196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 196, 196, 196, 
196, 196,196,196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 196, 196, 196, 
196,196,196, 196, 196, 196,196,196 }: 

static char buf180[] = {< 180,180 }; 


static 


static 
static 
static 
static 
static 
static 
static 


static 
static 
static 
static 


int 


char buf223[] = { 223,223 }; 


int 
int 
int 
int 
int 
int 
int 


gif_col; // inverse for color 
gib_ col; // inverse back color 
i_up_attr; // button up inv attr 
i_dn_attr; // button dn inv attr 
ret_val; 

old_ret_val; 

q_button; 


WIND *QUITPROG; 

int first=0; 

char quit_buff [sizeof (WIND)]; 
int shad_attr; 


_fastcall quitProgram(int f_col,int b_col,int if_col,int ib col) 


int e_flag; 
int event; 


// set screen attributes 


i_up_attr 
i_dn_attr 
shad_attr 


mkAttr(if_col, ib_col,ON_INTENSITY,OFF_BLINK); 


mkAttr(if_col,ib_col,OFF_INTENSITY,OFF BLINK); 


mkAttr(b_col,BLACK,OFF_INTENSITY,OFF_BLINK); 
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9-3 Continued. 


// if the mouse is installed then 
// turn the mouse off 


if (mouse_instal led) 
msoff(); 


// execute on first time quit prog window is 
// opened 


if(! first) 
7 set window structure 
QUITPROG = setWind(QUITPROG,8,25, 16,56); 
// set window attribute 
setAttr(QUITPROG,mkAttr(f_col,b col,ON_INTENSITY,OFF_BLINK)); 
// set the window border 
setBord(QUITPROG,S S S S$); 
// set the window title 
setTitle(QUITPROG," Quit Program "); 
// save window structure 
memcpy(quit_buff,QUITPROG, sizeof (WIND)); 
// display the window 
strtWind(QUITPROG); 
// set first time flag 
first = 1; 
} 

else 
// display the window if the window 
// has been previously opened 


dispWind(QUITPROG); 


// write the window text info 
wvdAttr(QUITPROG,0,9,14,1_up attr); 

wvdwWri te(QUITPROG,4,0,1,buf195,QUITPROG->attr); 
wvdWri te(QUITPROG,4, 1,30, buf196,QUITPROG->attr); 
wvdwWrite(QUITPROG,4,31,1,buf180, QUITPROG->attr); 
// draw window buttons 


c_up(); 
cancel_mess(); 
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// initialize quit prog loop variables 


ret_val = 0; 
old ret_val = 0; 
e_flag=0; 


// if the mouse is installed turn the 
// mouse on 


if (mouse_instal led) 
mson(); 


// main quit prog loop 


| 
do 


{ 
// if left button press 
// then depress quit button 


if (q_button==1) 

{ 
quit_holder(); 
q_button=0; 

} 


// quit prog event queue handler 


| if (quitEvent(&event) ) 


{ 


{ 
| 
4 
| // if event occurs then 


// process the event 


switch(event) 


{ 
// if event is key Q or q 


case K_Q: 

case K_q: 
quit_mess(); 
q_down(); 
c_up(); 
ret_val=1; 
break; 


// if event is key C orc 


case K_C: 

case K_c: 
cancel_mess(); 
q_up(); 
c_down(); 
ret_val=0; 
break; 


// if event is key ENTER 
case ENTER: 
e_flag=aTRUE; 
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break; 
} “ 
// loop until event is key ENTER 
} while(!e_flag); 


// if the mouse is installed 
// then turn the mouse off 


if (mouse_instal led) 
msof f(); 


// remove the window 
remvW ind(QUITPROG); 


// if the mouse is installed then 
// turn the mouse on 


if(mouse_instal led) 
mson(); 


// return depressed button 
// value 


return ret_val; 


SILLLLTLTLSTT TTA TTA 
// 


// cancel button up 
// 

void 

c_up() 


{ 
// if mouse installed then 
// turn off the mouse 


if (mouse_instal led) 
msoff(); 


// erase cancel 


wvdwWr ite(QUITPROG,6, 1 
1 


,9, ouf32,QUITPROG->attr); 
wdWrite(QUITPROG, 7, bu 


9,9 

9,9, buf32,QUITPROG->attr); 
// draw button up 

wvdWrite(QUITPROG,6,19,8," CANCEL ",i_up attr); 
wvdWr i te(QUITPROG, 6, 19+8,1,buf223,shad_attr); 
wvdWr iteCQUITPROG, 7,20,8,buf220,shad_attr); 


// if the mouse is installed then 
// turn on the mouse 
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if(mouse_instal \@) 
mson(); 


} 
SIVTALTTTTTLAT TTT TT 


// 
// quit button up 
// 


void 
q_up() 
{ 


// if the mouse is installed 
// then turn the mouse off 


if(mouse_instal led) 
msoff(); 


// erase quit 


wvdWrite(QUITPROG,6,4, 


4,,7,buf32,QUITPROG->attr); 
wvdWr i te(QUITPROG, 7,4, 7 


bu 
,buf32,QUITPROG->attr); 
// quit button UP 


wvdWriteCQUITPROG,6,4,6," QUIT ",i_up attr); 
wvdWr i te(QUITPROG,6,4+6,1,buf223,shad_attr); 
wvdwWr i te(QUITPROG,7,5,6,buf220,shad_attr); 


// if the mouse is installed then 
// turn the mouse on 


if(mouse_instal led) 
mson(); 


SILTTITLTTLLLTTTTTT TTT TTT 


// cancel button down 
// 


void 
c_down() 
{ _ 
// if the mouse is installed then 
// turn off the mouse 


if (mouse_instal led) 
msoff(); 


// erase cancel 


wvdwWr i te(QUITPROG,6, 19 
19 


,9, buf32,QUITPROG->attr); 
wvdWr i te(QUITPROG, 7, 19,9, bu 


£32, QUITPROG->attr); 


ere 
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// write cancel message 
wvdWri te(QUITPROG,6,19+1,8," CANCEL ",i_dn_attr); 


// if the mouse is installed then 
// turn the mouse on 


if (mouse_instal led) 
msonc); 


} 


CULL 


// 
// quit button down 
// 


void 
q_down() 
{ 


// if the mouse is installed then 
// turn the mouse off 


if(mouse_instal led) 
msoff(); 


// erase quit 


wvdwWr i teCQUITPROG,6,4,7,buf32,QUITPROG->attr); 
wydWrite(QUITPROG,7,4,7,buf32,QUITPROG->attr); 


// quit button DOWN 
wvdwWriteCQUITPROG,6,4+1,6," QUIT ",i_dn_attr); 


// if the mouse is installed then 
// turn the mouse on 


if(mouse_instal led) 
mson(); 


) 
SULTLVTTTAT LTT TATA 
// 


// quit event queue handler 

If 

int 

_fastcall quitEvent(int *event) 
{ 

int key,e_flag; 


int x,y; 
int val; 


key = 0; 
e flag = 0; 
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TILTTITTVTTT TTA TATA AAA 
// 

// quit prog window 

// loop 


do 
{ 
// if one button down then 
// other button up 


if(old_ret_val != ret_val) 


{ 

if(ret_val) 
{ 
q_down(); 
c_up(); 
} 


else 


{ 
q_up(); 
c_down(); 


} 
old_ret_val=ret_val; 
quit_holder(); 

) 


// scan for key press 
key = gtKBstat(); 


// if there is no key press and the 


// mouse is installed then process 
// mouse status 


if((!key)&&(mouse_instal led) ) 
{ 
q_button = msstat(&x,&y); 


// if the mouse button has been 
// pressed and the mouse is 
// over the quit button and 
// the quit button is depressed 


if((q_button==1)&&(y==112)) 
{ 
if ((x>=232)&&(x<=280)) 
{ 


if(ret_val) 
{ 
*event = ENTER; 
e_flag=1; 
val=1; 
> 


// if the quit button is 
// not depressed 
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else 
{ 
*event = K_Q; 
val=1; 
e_flag=1; 
> 

> 


// if the mouse is over the 
// cancel button and the 
// cancel button is depressed 


if ((x>=352 )&&(x<=416)) 
{ 


if(!ret_val) 
{ 
*event = ENTER; 
e_flag=1; 
val=1; 
) 


// if the cancel button is 
// not depressed 


else 


} 


// if there has been a key event 
// then process the key event 


else if (key) 


{ 
switch(key) 
{ 
// is key event Q or q 


case K_Q: 

case K_q: 
*event = K_Q; 
val=1; 
e_flag=1; 
break; 


// is key event C orc 


case K_C: 
case K_c: 
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// is key event ENTER 


case ENTER: 
*event = ENTER; 
e_flag=1; 
val=1; 
break; 


} 
// quit prog event queue handler 
// loop end 


> while(!e_flag); 
// return button press value 


return val; 
} 


SILIITTTTTDTTDT TTT LTTL TTT TTT 
// 


// quit prog window messages 
// 


static char *qm[2] = € 
"QUIT program session", 
" and return to DOS. " 3}; 


static char *cm[2] = € 
"CANCEL and return to", 
" program session. " ); 


SIVIITTTILTTLTTLI TTT 
// 
// print quit message to the screen 


void. 
quit_mess() 


{ 

wvdwWrite(QUITPROG,2,6,20, 
(char *)qm(0], 
QUITPROG->attr); 


wvdwWrite(QUITPROG,3,6,20, 
(char *)qn[1], 
QUITPROG->attr); 
} 


SILITTLLLTTTLTT LTT STL TAT TTT 
// 


// print cancel message to the screen 
// 


void 

cancel_mess() 

{ 
wvdWrite(QUITPROG,2,6,20, 
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(char *)cm(0], 
QUITPROG->attr); 


wvdWriteCQUITPROG,3,6,20, 
(char *)cm[1], 
QUITPROG->attr); 
} 


SULTLTTLTLTA TATA TA 
// 


// short delay to adjust mouse button 
// processing 
// 


void 
quit_holder() 
{ 


int i1,i2; 
for¢il=0; 11<100; i1++) 
for(i2=0; i2<3000; i2++) 
i2=i2; 


PROG34.C, shown in FIG.9-4, demonstrates function quitPrograrm(...) and 
how to process the selected window button. Once you see how function 
quitProgram(...) is called you will be able to use it in all of your text based pro- 
grams. Compile PROG34.C and link the resultant PROG34.OBJ object 
module with your TABS.LIB file. Running PROG34.EXE demonstrates 
how to pop up a Quit Window and use the mouse or keyboard to make a 
choice. 


9-4 The source code listing to PROG34.C. 


SILIILTTTTTT TTT TTT LTDA 
// 

// prog34.c 

// 

// Description: 

// Demonstrate use of function 

// quitProgram(...) 

// 

// include files here 


#include <stdio.h> 
#include <tproto.h> 


// function prototype 
void main(void); 


// mouse installed variable 
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int mouse_instal led; 


// start program 

void 

main() 

{ 

int e_flag,ret_val; 

// set up TAB library video 
vidInit(); 


// check to see if the mouse 
// is installed 


ret_val = msinit(); 
// if no mouse is installed 
if(ret_val<0) 

mouse_instal led=0; 
// mouse is installed 
else 

{ 

// set mouse installed flag 

mouse_instal led=1; 

// turn on the mouse 

mson(); 

} 
// display quit prog window 
e_ flag = quitProgram(WHITE,BROWN,WHITE,GREEN); 
// if cancel pressed then print cancel message 
if(!e_flag) 

printf("\nCANCEL button pressed\n"); 
// otherwise quit button pressed 
else 

printf("\nQUIT button pressed\n"); 


// if mouse is installed than turn the mouse off 


if(mouse_instal led) 
msoff(); 
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Creating a Lotus-style user interface 


Functions openLotus(...), lotusEvent(...), and showLotus(...) are all used to create a 
Lotus-style interface. LOTUS.C, shown in FIG. 9-5, is the source code to these 
three functions. Compile LOTUS.C and add the resultant LOTUS.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


9-5 The source code listing to LOTUS.C. 
TILTTLTTITI TIT ITI TTT TT 
Si 


// LOTUS.C 

// 
SITTITLTSLTTTLTT DTT TTT TT 
/ 


/ 
// Include Header Prototype files 
// 


#include <stdio.h> 
#include <string.h> 
#include <tproto.h> 
#include <malloc.h> 


// Function Prototypes 


[RERRHRERREREREREREREERERREREEREREREKE 


void hideLotus(LOTUS CLASS *); 

void showLotus(LOTUS_CLASS *); 

void saveLotus(LOTUS_CLASS *); 

void restoreLotus(LOTUS CLASS *); 

LOTUS CLASS * _fastcall openLotus(LOTUS CLASS *, // Lotus Class pointer 


char **, // pointer to item name list 
char **, // pointer to item explain list 
int, // item attribute 

int, // inverse item attribute 

int); // explain attribute 


int _fastcall lotusEvent(LOTUS_CLASS *, // Lotus Class pointer 
int *);  // pointer to event 


int _fastcall quitProgram(void); 
HHKKKRAAKRERERERERERREREERRRERERREREE / 


void lot_delay(void); 
SILTITLLTTTTLT TT LT TLL TTT TT 
// 

// EXTRERNS 


// 
SILILLLILLLTTT TATA TT 


extern int mouse_instal led; 


static int si_attr; // item attribute 
static int sinv_attr; // inverse item attribute 
static int se_attr; // explain attribute 


static int lot_flag=0; 
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SULTLLLLLLATT TTT TTT TTT 
II 


// openLotus(...) 

// 

// Open Lotus Style window for 
// business 

// 


// 
SITIVILTTTTTTLTT TTT TTT 


static unsigned char buf32[80] = ¢ 
32,32,32,32,32,32,52,5e, 
32,32,32,52,50,32,90,52, 
32,32,32,32,30,52,50, 52, 
32,32,32,32,32,52,52,52, 
32,32,32,32,32,32,52,52, 
32,32,32,32,52,32, 50,52, 
32,32,32,32,520,32,30,52, 
32,32,32,32,52,32,30,52, 
32,32,32,32,52,32,92,52, 
32,32,32,32,52,30,92,52 3 


LOTUS CLASS 
* fastcall openLotus(LOTUS CLASS *LC, // Lotus Class pointer 


char **L|name, // pointer to item name list 
char **lexp, // pointer to item explain list 
int i_attr, // item attribute 

int inv_attr, // inverse item attribute 

int e_attr) // explain attribute 


{ 


int row,column, item; 

unsigned int *ui_ptr; 

char *cptr; 

int offset; 

int len; 

int index; 

// allocate memory for structure 


LC = (LOTUS CLASS *)malloc(sizeof(LOTUS_CLASS)); 


// set lotus flag as lotus opened 
LC->lotus_open=1; 

si_attr = i_attr; 

sinv_attr = inv_attr; 

se_attr = e_attr; 

// initialize structure to 0 


// memset(LC,0,sizeof(LC)); 
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// set item list number of objects 


LC->number = 0; 
whi le( lLname [LC->number] ) 
LC->number++: 


// Initialize LOTUS LIST structure with data 


forCindex=0; index<LC->number; index++) 
{ 
LC->name [index] = lname[index] ; 
LC->explain[index] = lexp[index]; 
} 


// turn mouse off 
i f(mouse_instal led) 
msof f(); 


// calculate LC->lot_map values 


forCrow=0; row<LOTUS_ITEM_MAX; row++) 
{ 
LC->lot_map[row] [0] = 0; 
LC->lot_map[row] [1] = 0; 


) 

offset = 0; 

forCitem=0; item<LC->number; item++) 
{ 


LC->lot_mapLitem] [0] = offset; 
len = strlen(LC->name[item]); // highlight offset 
LC->lot_map[item] [1] = lent2; // highlight length 
offset += LC->lot_map[item] [1]; 
) 

LC->lot_map[item] [0] = offset; 


// save top two rows of screen image 


ui_ptr = LC->imgbuf; 
for(row=0; row<2: rowt++) 
for(column=0; column<80; column++) 
*ui_ptr++ = vrdChar(row, column); 


// erase first two rows 


vdWrite(0,0,80,buf32,i_attr); 
vdWrite(1,0,80,buf32,e_attr); 


// write items to top bar 


colume=1; 
item = 0; 
row=0; 


forCitem=0; item<LC->number; item++) 


{ 
cptr = (char *)LC->name[item] ; 
for(;;) 
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{ 
vdChr (0, column++, *cptr++); 
if(!*cptr) 
break; 
} 
column += 2; 
} 


// write item explanation for first item 


column = 1; 
cptr = LC->explain(0]; 
for(;;) 


{ 
vdChr(1,column++, *cptr++); 
if(!*cptr) 
break; 
> 


// highlight first item 
vdAttr(0,0,strlen(LC->name [0] )+2, inv_attr); 


// turn mouse on 
if(mouse_instal led) 
mson(); 


LC->lotus_item=0; 
LC->old_lotus=1; 


return(LC); 
} 


SILILTTLILTTTTT TTL TTT 
/ 


// check to see if a LOTUS menu 
// event has occurred 


// 

int 

_fastcall lotusEvent(LOTUS CLASS *LC,int *event) 
{ 

int colum; 

char *cptr; 

int x,y; 

int key,e_ flag; 

int ret_val; 


key = 0; 
e_ flag = 0; 


do 
{ 


// Write title bar - erasing old inverse 
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if(LC->lotus_ item != Lc->old_lotus) 
{ 
// turn mouse off 
if(mouse_instal led) 
msoff(); 


// erase old highlight 


vdAttr(0,0,80,si_attr); 
// Inverse proper menu item using lot_mapf{] (1 


vdAttr(0,LC->lot_map[LC->lotus_item] [0], 
LC->lot_map[LC->lotus_item] [1] ,sinv_attr); 


LC->old_lotus=LC->lotus_item; 
// print item explanation 


vdWrite(1,0,80,buf32,se_attr); 

column = 1; 

cptr = LC->explain[LC->lotus_item]; 

while(*cptr) 
vdChar(1,column++,mkToken(*cptr++,se_attr)); 


// turn mouse on 


if(mouse_instal led) 
mson(); 


lot_delay(); 
d 


// scan for key press 


key = gtKBstat(); 
if((!key)&&(mouse_instal led)) 
{ 


key = msstat(&x, &y); 
if((key==1)8&&(y==0)) // left button press 
{ 


// set lot_delay flag 
lot_flag=1; 
// calculate cursor location at text colum 


x /= 8; 
1f(x<LC->Llot_map[1] (0]) 
if(LC->lotus_item==0) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
> 
else 
LC->lotus_item=0; 
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else if(x<LC->lot_map[2] [0] ) 
if(LC->lotus_item==1) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
> 
else 
LC->lotus_item=1; 


else if(x<LC->lot_map[3} [0] ) 
1f(LC->lotus_item==2) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
} 


else 
LC->lotus_item=2; 


else if(x<LC->lot_map[4] [0] ) 
if(LC->lotus_item==3) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
} 
else 
LC->lotus_item=3; 


else if(x<LC->lot_map[5] [0] ) 
if(LC->lotus_item==4) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
) 


else 
LC->lotus_item=4; 


else if(x<LC->lot_map[6] [0] ) 
if(LC->lotus_item==5) 


ret_val = 1; 
e_flag=aTRUE; 


> 
else 
LC->lotus_item=5; 


else if (x<LC->lot_map[7] [0] ) 
if(LC->lotus_item==6) 


ret_val = 1; 
e_flag=aTRUE; 
> 


else 
LC->lotus_item=6; 


else if(x<LC->lot_map[8] [0] ) 
if(LC->lotus_item==7) 
{ 
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ret_val = 1; 
e_flag=aTRUE; 
} 
else 
LC->lotus_item=7; 


else if(x<LC->lot_map[9] [0] ) 
if(LC->lotus_item==8) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
) 


else 
LC->lotus_item=8; 


else if (x<LC->lot_map[10] [0] ) 
if(LC->lotus_item==9) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
} 
else 
LC->lotus_item=9; 


else if(x<LC->lot_map[11] (0) ) 
if(LC->lotus_item==10) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
) 
else 
LC->lotus_item=10; 


else 
LC->lotus_item = LC->lotus_ item; 
> 


else if(key==2) 
e_ flag=1; 


else 

e_ flag = e_flag; 
key=0; 
} 


// on key press event 


else if(key) 
{ 
switch(key) 


{ 
case RIGHT_ARROW: // At right item? 
if(LC->lotus_item==LC->number-1) // Yes? 
LC->lotus_item=0; // set left item 


else // Else 
LC->lotus_item++; // move rt 1 item 
break; 
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case LEFT_ARROW: // At left item? 


if(LC->lotus_item==0) // Yes? 
LC->lotus_item=LC->number-1; 


else // Else 


// 


set right item 


LC->lotus_item--; // move lft 1 item 


break; 


case ENTER: 
ret_val = 1; 
e_flag=aTRUE; 
break; 
} 


} 
> while(!e flag); 


*event = LC->lotus_item; 
return ret_val; 
} 


SULTLTLLTTTLLT TLD LTT TTT 


// mouse adjust delay 
// 


void 
lot_delay() 
{ 

int 11,12; 
if(lot_flag) 


{ 
for(i1=0; 11<200; i1++) 
for(i2=0; i2<2000; i2++) 
12=12; 
lot_flag=0; 
} 
} 


SILTTTTLTTT LTT LATTA TT 
// 
// display lotus menu bar 


// 


void 

_fastcall showLotus(LOTUS_ CLASS *LC) 
{ 

int column, item; 

char *cptr; 


if(mouse_instal led) 
msof f(); 


// erase first two rows 


vdWrite(0,0,80,buf32,si_attr); 
vdWrite(1,0,80,buf32,se_ attr); 


// write items to top bar 
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column=1; 

item = 0; 

for(item=0; item<LC->number; item++) 
{ 


cptr = (char *)LC->name[item] ; 
for(;;) 
{ 
vdChr(0, column++, *cptr++); 
if(!*cptr) 
break; 
} 
column += 2; 
} 


// write item explanation for first item 


column = 1; 
cptr = LC->explain(0)]; 
for(;;) 

{ 


vdChr(1,column++,*cptr++); 
if(!*cptr) 

break; 
} 


// highlight first item 
vdAttr(0,0,strlen(LC->name [0] )+2,sinv_attr); 


LC->lotus_item=0; 
LC->old_lotus=1; 


if(mouse_instal led) 
mson(); 
> 


PROG35.C, shown in FIG. 9-6, should be used as both an explanatory 
demonstration program and a shell program which you may freely use to 
create your own Lotus-style interface programs. Tod customize PROG35.C 
to your individual needs simply alter the text in the MENU1_namef[...] and 
MENU1_exp[...] character arrays. The mouse-position reads and menu-item 
placement are automatically calculated at compile time. Look at the 
source code to PROG35.C and see how easy it is to use the program as a 
shell for your own Lotus-style user interface needs. Compile PROG35.C 
and link the resultant PROG35.OBJ object module with your TABS.LIB 
file. Running PROG35.EXE demonstrates the look and function of a 
mouse and keyboard-driven Lotus-style interface. Take your time when 
exploring both the source to LOTUS.C (FIG. 9-5) and PROGS5.C (FIG. 9-6). 
These programs offer a variety of tools which you may wish to use in your 
programs. 
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VILTTLTTTTTTAT TTT A TT 
// 

// prog35.c 

// 

// Beginning workings of LOTUS window 
// structures 

// 

// Date: 7/1/90 

If 

VIITTTTTLTATL TTT TS 
VILLTTLITTTTL TTL ST 


// 
// Include Header Prototype files 
// 


#include <stdio.h> 
#include <string.h> 
#include <tproto.h> 

// Function Prototypes 
void main(void); 


[RERRERERERERERERERREREREREREEREREREER 


void showLotus(LOTUS CLASS *); 
void hideLotus(LOTUS CLASS *); 
LOTUS_CLASS *openLotus(LOTUS_CLASS *, // Lotus Class pointer 


char **, // pointer to item name List 
char **, // pointer to item explain list 
int, // item attribute 

int, // inverse item attribute 

int); // explain attribute 


HHARKKRAREERERAEREEEREEEREEEREREEREEEEEEEEEREK / 


CULL 


// Declare function prototypes for 
// Lotrus function list 


// 
OULU 
void fun0(void); 

void funl(void); 

void fun2(void):; 

void fun3(void): 

void fun4(void); 

void fun5( void); 


VIVILITTLTTTT TTT TLL TTT TT 
// 


// Structure and global data declarations 


// 
ULL 
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// Declare Lotus Menu with 7 items 
LOTUS_CLASS *MENU1; 

// mouse flag 

int mouse_instal led; 
SITLITTTLTT TTT TATA TT 
// Interface Menu Data Declarations 
TTT 


char *MENU1 name[8] = { 


"Mean", // pos 0 name 
"Mode", // pos 1 name 
"Median", // pos 2 name 
"Range", // pos 3 name 


"Standard Dev.", // pos 4 name 
"Correlation", // pos 5 name 


"QUIT", // pos 6 
NULL > ; // WULL List terminator 


char *MENU1_exp[8] = { 
"Mean is the average score of the distribution", 
"Mode is the most frequent score", 
"Median is the middle score of the sample", 
"Range is the distance from highest score to lowest", 


“Standard Deviation is average score distance from mean", 


"Calculate relationship between variables", 
"QUIT to DOS", 
NULL }; // NULL list terminator 


VILTLTLLLTTTT TTT TT 
// 
// Interface Functions 


// 
UU 


void 
fun0() 


{ 

vdWrite(22,0,18,"Item 1 Highlighted", 
mkAttr(WHITE,RED,ON_INTENSITY,OFF_BLINK)); 

} 


void 

funi() 

{ 

vdWrite(22,0,18,"Item 2 Highlighted", 
mkAttr(WHITE,BLUE,ON_INTENSITY,OFF_BLINK)); 


> 


void 
fun2() 
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exp 
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exp 
exp 
exp 
exp 
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{ 
vdWrite(22,0,18,"Item 3 Highlighted", 
mkAttr(WHITE,BLACK,ON_INTENSITY,OFF_BLINK)); 


} 


void 
fun3() 


{ 
vdWrite(22,0,18,"Item 4 Highlighted", 
mkAttr(WHITE,BROWN,ON_INTENSITY,OFF_BLINK)); 


) 


void 
fun4() 


{ 
vdWrite(22,0,18,"Item 5 Highlighted", 
mkAttr(BLACK,WHITE,ON_INTENSITY,OFF_BLINK)); 


) 


void 
fun5() 
{ 


vdWrite(22,0,18,"Item 6 Highlighted", 
mkAttr(BLACK,CYAN,ON_INTENSITY,OFF_BLINK)); 


) 
SULTLTLLTTILT TAT T DTT T TTT ATT 
// 


// main(...) 

// 

// Program Start 

// 
SUSTTLLTTTLT TTL A TTT TT 


void 

main() 

{ 

int cnt; 

char *name [6]; 
int screen_attr; 
int ret_val; 

int event; 

int e_flag; 


// set attributes 


screen_attr = mkAttr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK); 


// initialize video structure 
vidinit(); 
// clear the screen 


serncClr(); 
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// turn the screen white 
scrnAttr(screen_attr); 


// turn the cursor off 
of fCur(); 
// check for mouse installed 
ret_val = msinit(); 
if(ret_val==Oxffff) // no mouse 
vdWrite(23,0,18,""No mouse installed", 
mkAttr(WHITE,GREEN,ON_INTENSITY,OFF_BLINK)); 
else 
{ 
vdWrite(23,0,18,"Mouse installed ", 
mkAttr(WHITE,GREEN,ON_INTENSITY,OFF_BLINK)); 
mouse_instal led=1; 
} 
// turn the mouse on 
if (mouse_instal led) 


mson(); 


SILTTLTLTTTALLLT TTT TLD TTT TTT TAT 
// // 


// Open Lotus style window // 
// // 
// 
MENU1 = openLotus((LOTUS_ CLASS *)MENU1, // pointer to LOTUS CLASS // 
MENU1_name, // Item name list // 
MENU1_exp, // Item explanation List // 
mkAttr(BLACK,CYAN,OFF_INTENSITY,OFF_ BLINK), // Item attr // 
mkAttr(WHITE,BLUE,OFF_INTENSITY,OFF_BLINK), // Item inverse // 
mkAttr(RED,CYAN,OFF_INTENSITY,OFF_BLINK)); // Expl. attr // 
e_ flag = 0; 
do 


{ 
if( lotusEvent(MENU1, &event) ) 


switch(event) 

{ 

case 0: 
fun0¢); 
break; 

case 1: 
funl(); 
break; 

case 2: 
fun2(); 
break; 

case 3: 
fun3(); 
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break; 
case 4: 
fun4(); 
break; 
case 5: 
fun5(); 
break; 
case 6: 


e_flag=quitProgram( WHITE, BROWN, WHITE,GREEN): 
if¢te_flag) 

showLotus(MENU1); 
break; 


} 
) while(!te flag); 


// // 
SULTLTLTTTTT ATT TATA AAA AAA 
// turn the mouse on 


if (mouse_instal led) 
msof f(); 


// clear the screen 


sernCir(); 


// turn the cursor on 
onCur(); 
} 


If 
// prog35.c 
/ 


/ 
CULL 


Summary 


In chapter 9 the building-block routines were presented for the creation of 
a standard pop-up-type Quit Window and a Lotus-style window interface. 
Every function that required user input was driven by both the mouse and 
keyboard. 

The source file to PROG35.C may be used as a shell that you may 
modify to create your own Lotus-style window interfaces. The process is as 
easy as Changing text in an array and recompiling PROG35.C. 

Figure 9-7 represents the source code listing that contains the current 
contents of TABS.LIB. Chapter by chapter your TAB libraries are growing. 
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9-7 The current library contents listing for TABS.LIB. 


@DLEEDs oo acn ce ceee bleep @boxRect........6. boxrect 
@clrRect.....ceeee clrrect adelay...........- delay 
@diSPWINd......ee. dispwind adsyWind.......... dsywind 
@exit_bad......... exit_bad @afillRect......... fillrect 
QOtCUl cecaes wees gtcur @gtKey.....cccaces gtkey 
@lotusEvent.......lotus @Ol TCU oscsss005 05 offcur 
BONCUE os ssaesrsieeears oncur @openLotus........ lotus 
@putChr...sseceees putchr @putStr.....eeeees putstr 
aquitEvent........ quitprog aquitProgram...... quitprog 
OFClOC ieee diab rcloc OrdImg..ccecccceee rdimg 
OrQWind...ccccccee rdwind OremvWind....ceece remvwind 
@restRect...cseeee restrect @restScrn....scees restscrn 
@PMVCUPr . we ecccccns rmvcur @rsizeCur...ccsees ssizecur 
DSaveRect....eecee saverect DMSaveScrn...esceee savescrn 
MSClLOC. . eee ecceee scloc ascrnAttr.......6. scrnattr 
asetAttr.........2. setattr asetBord.......... setbord 
MSEtRect...ccececs setrect asetTitle......... settitle 
asetWind... cece. setwind a@showLotus........ lotus 
@SizeCur..ccesecee sizecur @Ssizelmg......ceee sizeimg 
@SIZERECt...ecaeee sizerect @ssizeCur....seee ssizecur 
astrtWind.......e. strtwind @VGEdit.....ceseee vdedit 
@vrdChar..sscccens vrdchar QWPBOX.. 2c cccccees wrbox 
QWrIMG. sc cccccncee wrimg QWrWINd. 2... ee cee wrwind 
QWVGATtr.ccccccees wvdattr @wvdChar......ceee wvdchar 
@WVGHOPiZ..-ccceee wvdhor iz QWVCStre ws eee eee wvdstr 
@wvdVert...... .».-wvdvert @wvdwWrite......... wvdwrite 
@wvrdChar....seee. wvrdchar BOG T PUTT cai cawiwes timer 
_cancel_mess...... quitprog COL dines eumepess vidinit 
_C_down........26- quitprog WC AID sa'serntveaietiaiets quitprog 
_defkey1.......... vdedit _defkey2.........2. vdedit 
_defkey3S...csccoce vdedit _defkey4.......... vdedit 
_get_jiffhour..... timer _get_jiffmin...... timer 
_get_jiffy........ timer _get_ljiffy....... timer 
_gtKBstat......... gtkbstat _g shape.......... g shape 
_initialize_timer..timer _lot_delay........ lotus 
MKACtr. ccc eceee mkattr _mkToken.......... mk token 
MSINIt.wcceccenes msinit MSOf fest cativews msof f 
MSOs esac sess s mson MSStatesed sc ccwus msstat 
SIVCUP . ccc wcccene mvcur _newtimer......... timer 
_OffSound......... of fsound _onSound.......... onsound 
_putCRLF.......... putcr | f _quit_holder...... quitprog 
_quit_mess........ quitprog 0 GOWN sos s:acseeins quitprog 
OUD esses Soleo esi quitprog _remove_timer..... timer 
_reset_timer...... timer SCR Fiscas cuss scrnclr 
SCRNSEG 6.5 ecmeere’s vidinit _SPARKLE_FLAG..... vidinit 
_Start_timer...... timer _stop_timer....... timer 
5S SNODC so isewaceecs s_shape WOACEP coeaaictnsins vdattr 
NON AP veceweccces vdchar VOCIP ve swccceeee vdchr 
NGHOP YZ s:a0isc5.erie'sis vdhor iz VAVErC isk scinwans vdvert 
_vdWrite....... /...Vvdwrite VidINItieccewecws vidinit 
_VID_PORT....cs00. vidinit 
mvcur Offset: 00000010H Code and data size: 15H 
_mvCur 
timer Offset: OOOOO0bOH Code and data size: e0H 
_addi jiff _get_jiffhour _get_jiffmin _get_jiffy 
_get_ljiffy _initialize_timer _newtimer 
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_remove_timer 


gtcur 
agtCur 


rmveur 
armvCur 


scloc 
asCloc 


rcloc 
arCloc 


oncur 
aonCur 


s_shape 
_sS_shape 


g_shape 
_g_shape 


offcur 
aoffCur 


sizecur 
asizeCur 


ssizecur 
arsizeCur 


mktoken 
_mkToken 


mkattr 
_mkAttr 


sernclr 
_sernclr 


vidinit 
_ert 
_VID_PORT 


vdchar 
_vdChar 


vdwrite 
_vdWrite 


vdhoriz 
_vdHor iz 


vdvert 
_vdVert 


_reset_timer 


Offset: 00000390H 


Offset: 000004a0H 


Offset: 000005e0H 


Offset: 00000710H 


Offset: 00000830H 


Offset: O0000950H 


Offset: OOOO09TOK 


Offset: 00000a80H 
Offset: O00000ba0H 
Offset: O0000cb0H 
assizeCur 
Offset: O0000df0H 
Offset: 00000e90H 


Offset: OOO00f30H 


Offset: O0000fdOH 
_SCRNSEG 


Offset: 000011a0H 


Offset: 00001270H 


Offset: 00001350H 


Offset: 00001420H 


_start_timer 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


_stop_timer 


size: 2cH 
size: 30H 
size: 26H 
size: 10H 
size: eH 
size: cH 
size: 7H 
size: eH 
size: aH 
size: 26H 
size: bH 
size: 17H 


size: 1laH 


Code and data size: 71H 


_SPARKLE_FLAG 


Code and data size: 27H 


Code and data size: 42H 


Code and data size: 2cH 


Code and data size: 32H 


Summary 


_vidinit 


295 


9-7 Continued. 


vdattr 
_vdAttr 


vrdchar 
avrdChar 


savescrn 
asaveScrn 


restscrn 
arestScrn 


delay 
adel ay 


bleep 
ableep 


gtkey 
agtKey 


vdedit 
avdEdit 
_defkey4 


onsound 
_onSound 


of fsound 
_of fSound 


gtkbstat 
_gtKBstat 


fillrect 
afillRect 


setrect 
asetRect 


sizerect 
asizeRect 


clrrect 
aclrRect 


boxrect 
aboxRect 


saverect 
a@saveRect 


restrect 
arestRect 


putcrl f 
_putCRLF 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


000014f0H 


000015c0H 


00001700H 


00001860H 


000019d0H 


00001af0H 


00001c30H 


00001d30H 


_defkey1 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


00002780H 


00002820H 


000028b0H 


00002950H 


00002aa0H 


00002c10H 


00002d10H 


00002e60H 


00003200H 


00003350H 


000034a0H 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


_defkey2 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size 


size: 


size: 


$size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


2eH 


3cH 


44H 


46H 


32H 


2eH 


14H 


: 7SaH 
_defkey3 


18H 


7H 


11H 


42H 


90H 


10H 


46H 


238H 


42H 


42H 


bH 
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putstr 
@putStr 


putchr 
aputChr 


wrimg 
a@wr img 


wrbox 
awrBox 


wrwind 
awrWind 


rdimg 
ardimg 

sizeimg 
asizelmg 


exit_bad 
aexit_bad 


rdwind 
ardWind 

dispwind 
adi spWind 

remvwind 
aremvwind 


settitle 
asetTitle 


setwind 
asetWind 


setbord 
asetBord 


dsywind 
ads ywW ind 


setattr 
asetAttr 


strtwind 
astrtWind 


wvdattr 
awvdAttr 


wvdchar 
awvdChar 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


00003540H 


00003690H 


00003790H 


000038d0H 


00003c50H 


00003d90H 


00003ed0H 


00003 fd0H 


00004150H 


00004290H 


000043c0H 


000044 f0H 


00004670H 


00004880H 


00004970H 


00004 ab0H 


00004ba0H 


00004d10H 


00004e40H 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


size: 38H 


size: 14H 
size: 42H 
size: 228H 
size: 42H 
size: 42H 
size: 10H 
size: 43H 
size: 42H 
size: 18H 
size: 18H 
size: 56H 
size: cdH 
size: 4H 
size: 3aH 
size: 4H 
size: 42H 
size: 26H 


size: 22H 
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wvdhor iz 
@wvdHor1z 


wvdstr 
awvdstr 


wvdvert 
awvdVert 


wvdwr ite 
awvdwrite 


wvrdchar 
awvrdChar 


mson 
_mson 

msof f 
_msof f 


msstat 
_msstat 


msinit 
_msinit 


scrnattr 
ascrnAttr 


qui tprog 
aqui tEvent 
—¢_UP 
—-LUp 


lotus 
alotusEvent 


vdchr 
_vdChr 


Offset: 00004f60H 


Offset: 00005090H 


Offset: 000051cOH 


Offset: 000052f0H 


Offset: 00005460H 
Offset: 00005590H 
Offset: 00005620H 
Offset: 000056b0H 
Offset: 00005750H 
Offset: 


000057fOH 


Offset: 00005920H 
aqui tProgram 
_quit_holder 


Offset: 00006440H 
@openLotus 


Offset: 00006d10H 


Code and data 


Code and data 


Code and data 


Code and data 


Code and data 


Code and data 


Code and data 


Code and data 


Code and data 


Code and data 


Code and data 
_cancel_mess 
_quit_mess 


Code and data 
ashowLotus 


Code and data 


size: 28H 


size: 28H 
26H 


size: 


size: 5aH 


size: 20H 
size: 6H 
size: 6H 
size: 18H 
size: 10H 
2cH 


size: 


size: 698H 
_¢_down 
_q_down 


size: 63eH 
_lot_delay 


size: 27H 
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Menu-bar/drop-down window 
interface routines 


This final chapter is like a cousin to chapter 9, it provides a shell program 
for the creation of a user interface that contains a menu bar of items at the 
top of the screen. When a menu-bar item is selected, a drop-down window 
containing more options falls. The user may select a menu-bar or drop- 
down item using the keyboard or the mouse. If the mouse is not installed 
the interface will function just fine using the keyboard alone. If there is a 
mouse present, however, the keyboard will function in the same fashion as 
if there were no mouse present. 

You can select a menu-bar item from the keyboard by pressing the Alt 
key in combination with the RED menu-item letter. You select the menu- 
bar item with the mouse by moving the mouse cursor over the menu-bar 
item text and pressing the left mouse button. 

Once the drop-down window appears you can highlight an item from 
the keyboard by using the up and down arrow keys. If you wish to select a 
highlighted item simply press the Enter key. If you are using the mouse 
simply move the mouse cursor over the drop-down window item you wish 
to select and press the left mouse button. 

As with the Lotus-style window presented in chapter 9, the drop- 
down/menu-bar window uses arrays of text for the drop-down window and 
menu-bar item lists. If you wish to add items to a drop-down window then 
add one element to the drop-down window array. 

There is one additional array used by the drop-down window/menu- 
bar scheme. An array of hot key press values (see FIG. 10-4) is passed to the 
menu-bar and drop-down window routines. This method gives you (the 
programmer) total control over hot key values. 

Let’s say you have a two-element array for a drop-down window. In 
this hypothetical setup the first menu-bar item is called File... and the sec- 
ond menu-bar item is called Quit.... When you pass the addresses of these 
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arrays (see FIG. 10-4) the “‘F’’ and *'Q”’ keys will automatically appear RED. 
You can use the Alt ‘‘F’’ and Alt ‘‘Q”’ hot keys to invoke the related menu- 
bar item choices by using ALT_F and ALT_Q (see the KEYBOARD.H file 
presented in chapter 2) choices. That doesn’t seem too hard, does it? 


Preparatory files 


There are three source files that must still be added as object modules to 
your TAB libraries before the PROG36.C, the drop-down window/menu- 
bar demonstration shell program, is presented. | 

Function dsyRect(...) frees up memory which had been previously allo- 
cated during a function setRect(...) call. DSYRECT.C, shown in FIG. 10-1, is 
the source code to the dsyRect(...) function. Compile DSYRECT.C and add 
the resultant DSYRECT.OBJ object modules to your TABS.LIB, 
TABM.LIB, and TABL.LIB files. 


10-1 The source code listing to DSYRECT.C. 


SISTLSTITTTTT LAT LLTD TTT TTT ATT 
// 


// dsyrect.c 

// 

// Description: 

// Destroy RECT structure by freeing 
// memory allocated during function 
// setRect(...) 

ff 


// include files here 


#include <tproto.h> 


void 

_fastcall dsyRect(R) 
RECT *R; 

{ 

// free memory for image 


free(R->image); 
// free memory for structure 


free(R); 
} 


Function openMessage(...) pops up a window to the screen with a simple 
text display message. Although this window does not provide any facility 
for user input it will prove quite valuable in providing a professional look to 
program feedback. MESSAGE.C, shown in FIG. 10-2, is the source code to 
the openMessage(...) function. Compile MESSAGE.C and add the resultant 
MESSAGE.OBJ object modules to your TABS.LIB, TABM.LIB, and 
TABL.LIB files. 
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10-2 The source code listing to MESSAGE.C. 


SISTTTTSTTTLTT PLATT STT TTT TTT 
// 
// MESSAGE .C 


// 
CULL 
#include <malloc.h> 

#include <tproto.h> 

#include <string.h> 

extern int mouse_installed; 


int 


_fastcall openMessage(char **M,int f_col,int b_col,int if_col, int ib_col) 


{ 

RECT *R; 

int width,height,ur,uc,(r,lc; 

int count, value, row, offset; 

int number ,key,e_flag,x,y,q_ button; 
char mouse_dot [3] = €{ 91,254,953 }; 
char buf220[4] = (220,220,220, 220); 
char buf223[4] = (223,223,223,223); 
int i_up attr,shad_attr; 

int attr; 

int ret_val; 


attr = mkAttr(f_col,b col,ON_INTENSITY,OFF_BLINK); 

i_up attr = mkAttrCif_col,ib_col,ON_INTENSITY,OFF_ BLINK); 
//i_dn_attr = mkAttr(if_col,ib_col,OFF_INTENSITY,OFF_BLINK); 
shad_attr = mkAttr(b_col,BLACK,OFF_INTENSITY,OFF_BLINK); 

// get height + offset for button box 

height = 0; 


while(M[height] ) 
height++; 


number=hei ght; 
height += 5; 


ur 
tr 


(25-height)/2; 
ur + height; 


// get width 


width=0; 
count=0; 


for(count=0; count<number; count++) 
value = strlen(M[count] ); 


if(value>width) 
width=value; 
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10-2 Continued. 
} 
width += 6; 


uc 
le 


(80-width)/2; 
uc+width; 


// draw rectangle 
R = setRect(R,ur,uc,lr,lc); 
// if mouse installed turn mouse off 


if (mouse_instal led) 
msoff(); 


// save screen image under RECT 
saveRect(R); 
// draw box around the rectangle 
boxRect(R,D_D_D_D,attr); 
// print message 
for(row=1; row<number; row++) 
{ 
value = strlen(M[row-1] ); 
offset = (width-value)/2; 
vdWrite(R->ul_rowtrow,R->ul_col+offset, value,M[row-1] ,attr); 
} 
// print OK box 
vdWrite(R->ul_rowtrowt2,R->ul_col+(width/2)-2,4," OK ",i_up attr); 
vdWrite(R->ul_rowtrow+3,R->ul_col+(width/2)-1,4,buf220,shad_attr); 
vdWrite(R->ul_rowtrowt2,R->ul_col+(width/2)+2,1,buf223,shad_attr); 
// write mouse button 
vdWrite(R->ul_row,R->ul_col+1,3,mouse_dot,attr); 


// if mouse installed turn on the mouse 


if (mouse_instal led) 
mson(); 


// loop initialization 


key = 0; 
e_flag = 0; 


// keyboard and mouse loop 
do 


{ 
// check key waiting 
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10-2 Continued. 
key = gtKBstat(); 


// if no key waitint and the mouse 
// is installed 


if((!key)&&(mouse_instal led) ) 
er button status 
q_button = msstat(&x, &y); 

// convert mouse to text coordinates 
/= 8; 
/= 8; 

// if left button and in OK box 
if ((q_but ton==1)&&(y==R->ul_rowtrow+2)) 


{ 
if( (x>=R->ul_col+(width/2)-2)&&(x<=R->ul_col+(width/2)-2+4)) 


{ 
e_flag=1; 
ret_val=1; 
} 

} 


// if left button and in close dot 
if ((q_but ton==1)&&(y==R->ul_row)) 


{ 

if (x==R->ul_col+2) 
{ 
e_flag=1; 
ret_val=0; 
+ 


} 
// process key press 


else if (key) 
{ 


switch(key) 


{ 

case ESCAPE: 
ret_val=0; 
e_flag=1; 
break; 


case ENTER: 
e_flag=1; 
ret_val=1; 
break; 
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else 
e_flag=e_flag; 


// loop end 

)} while(te_flag); 
// if the mouse is installed 
// turn the mouse off 


if(mouse_instal led) 
msof f(); 


// restore screen image under 
// rectangle 


restRect(R); 


// destroy rectangle structure and 
// free memory 


dsyRect(R); 


// if the mouse is installed 
// then turn the mouse on 


if (mouse_instal led) 
mson( ); 


// return selection value 


return ret_val; 
) 


MENUBAR.C, shown in FIG. 10-3, contains the functions that are used 
to create the drop-down window/menu-bar user interface. See PROG36.C 
(FIG. 10-4) for a description of function syntax. PROGS6.C is a heavily com- 
mented program. Compile MENUBAR.C and add the MENUBAR.OBJ 
object modules to your TABS.LIB, TABM.LIB, and TABL.LIB files. 


10-3 The source code listing to MENUBAR.C. 


SULTLLLTTLTIT TTA TTT 
// 

// MENUBAR .C 

// 

SILLLTLTTTTLDT TTT TT 
// 


// Include Header Prototype files 
// 
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#include <stdio.h> 


#include <string.h> 

#include <tproto.h> 

#include <malloc.h> 

// Function Prototypes 

static void lot_delay(void); 
UU 
// 

// EXTERNS 

If 
UU 


extern int mouse_instal led; 


Static int si_attr; // item attribute 
static int sinv_attr; // inverse item attribute 
static int sk_attr; // explain attribute 


static int lot_flag=0; 
static int right_flag=0; 
static int left_flag=0; 


SILTLTTLLTTLTT TTT TTT TTT 
// 


// openMenuBar(...) 

// 

// Open MenuBar Style window for 
// business 

// 


// 
SUITTISTTTITTTT TTT TTT TTT 


static unsigned char buf32[80] = ¢€ 
32,32,32,32,32,520,50,52, 
32,32,32,32,32,32, 52,352, 
32,32,32,32,52,32,52,52, 
32,32,32,52,32,32,52,52, 
32,32,32,32,32,32,52, 52, 
32,32,32,32,32,32,52,52, 
32,32,32,32,32,52,52,52, 
32,52,32,32,32,32,52,52, 
32,32,32,52,32,32,52,52, 
32,32,32,32,32,52,52,52 3 


int key_tab[10]; 


MENUBAR_CLASS 
* _fastcall openMenuBar(MENUBAR_CLASS *MB, // MenuBar Class pointer 


char **lname, // pointer to item name list 
int *active_keys, // pointer to list of keys 
int i_attr, // item attribute 

int inv_attr, // inverse item attribute 
int k_attr) // explain attribute 


int row,column, item; 
unsigned int *ui_ptr; 
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char *cptr; 
int offset; 
int len; 

int index; 


// allocate memory 
MB = (MENUBAR_CLASS *)malloc(sizeof(MENUBAR_CLASS)); 
// set menubar flag as menubar opened 
MB->menubar_open=1; 
// set structure attributes 
MB->si_attr = si_attr = i_attr; 
MB->sinv_attr = sinv_attr = inv_attr; 
MB->sk_attr = sk_attr = k_attr; 
// set item list number of objects 
MB->number = 0; 
whi le¢ Lname [MB->number] ) 
MB->number++ : 
// Initialize MENUBAR_LIST structure with data 
for(index=0; index<MB->number; index++) 
{ 
MB->name {index} = lname[index]; 
MB->key_list[index] = active_keys [index]; 
} 


// turn mouse off 


if(mouse_instal led) 
msof f()>; 


// calculate MB->mb_map values 


for(row=0; row<MENUBAR_ITEM_MAX; row++) 
{ 
MB->mb_map[row] [0] = 0; 
MB->mb_map[row] [1] = 0; 
} 


offset = 0; 
forcitem=0; item<MB->number; item++) 


{ 
MB->mb_map[item] [0] = offset; 
len = strlen(MB->name[Litem]); // highlight offset 
MB->mb_map[item] [1] = lent2; // highlight length 
offset += MB->mb_map[item] [1]; 
) 

MB->mb_map[item] [0] = offset; 


// save top two rows of screen image 
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ui_ptr = MB->imgbuf; 
for(row=0; row<2; rowt+) 
for(column=0; column<80; columnt+) 
*uj_ptr++ = vrdChar(row,colum); 


// erase first two rows 
vdWrite(0,0,80,buf32,i_attr); 
" // write items to top bar 


column=1; 
item = 0; 
row=0; 


forCcitem=0; item<MB->number; item++) 
{ 
cptr = (char *)MB->name[item] ; 
vdAttr(0,column,1,sk_attr); 

| key_tab{item] = column; 


for(;; 
{ 
vdChr(0, columnt++, *cptr++); 
if(!*cptr) 
break; 
) 
column += 2; 
> 


// turn mouse on 


if(mouse_instal led) 
mson(); 


MB->menubar_item=0; 
MB->old_menubar=0; 


return(MB); 
) 


CULL 
If 

// report mouse and keyboard event 

// on the menu bar 

// 
UU 


int 

_fastcall menubarEvent(MENUBAR_CLASS *MB, int *event) 
{ 

int item,x,y; 

int key,e flag; 

int ret_val; 


key = 0; 
e_ flag = 0; 


Preparatory files 9307 


10-3 Continued. 


do 
{ 


// Write title bar - erasing old inverse 
if (MB->menubar_item != MB->old_menubar ) 
{ 
// turn mouse off 


if (mouse_instal led) 
msoff(); 


// erase old highlight 
vdAttr(0,0,80,si_attr); 


forCitem=0; item<MB->number; item++) 
vdAttr(0,key_tab[item] ,1,sk_attr); 


// Inverse proper menu item using mb map[] [] 


vdAttr(0,MB->mb_map{(MB->menubar_item] [0], 
MB->mb_map[MB->menubar_item] [1],sinv_attr); 


MB->old_menubar=MB->menubar_ item; 
// turn mouse on 


if(mouse_instal led) 
mson(); 


lot_delay(); 
) 


// check for open window LEFT / RIGHT arrow 
// from openDropDown 


if(right_flag) 


{ 

right_flag=0; 
ret_val=1; 
e_flag=1; 
key=RIGHT_ARROW; 
goto HOT_BYPASS; 
> 


if(left_flag) 

{ 
left_flag=0; 
ret_val=1; 
e_flag=1; 
key=LEFT_ARROW; 
goto HOT_BYPASS; 
> 

// scan for key press 


key = gtKBstat(); 
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// check for mouse & button press 
if((!key)&&(mouse_instal led)) 
i = msstat(&x,&y); 
if ((key==1)&&(y==0)) // left button press 
ii set lot_delay flag 


lot_flag=1; 


// calculate cursor location at text column 


x /= 8; 
i f (x<MB->mb_map[1] [0] ) 


{ 
i f (MB->number<1) 
break; 
else if (MB->menubar_item==0) 
€ 
ret_val = 1; 
e_flag=aTRUE; 
> 
else 
MB->menubar_item=0; 
> 


else if (x<MB->mb_map[2] [0] ) 


{ 
i f (MB->number<2) 
break; 
else if (MB->menubar_item==1) 


else 
MB->menubar_item=1; 


M 
else if(x<MB->mb_map [3] [0] ) 


{ 

i f (MB->number<3) 
break; 

else if(MB->menubar_item==2) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
> 


else 
MB->menubar_item=2; 


Ms 


else if(x<MB->mb_map[4] [0] ) 
{ 
i f (MB->number <4) 
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break; 

else if (MB->menubar_item==3) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
} 

else 
MB->menubar_item=3; 

} 


else if (x<MB->mb_map [5] [0] ) 

{ 

i f (MB->number <5) 
break; 

else if(MB->menubar_item==4) 
{ 
ret_val = 1; 
e_flag=aTRUE; 


> 
else 
MB->menubar_item=4; 
} 


else if (x<MB->mb_map[6] [0] ) 
{ 
i f (MB->number <6) 
break; 
else if(MB->menubar_item==5) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
> 
else 
MB->menubar_item=5; 
} 


else if(x<MB->mb_map[7] [0] ) 
{ 
i f (MB->number<7) 
break; 
else if (MB->menubar_item==6) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
} 
else 
MB->menubar_item=6; 
) 


else if(x<MB->mb_map[8] [0] ) 
{ 
if (MB->number<8 ) 
break; 
else if(MB->menubar_item==7) 
{ 
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ret_val = 1; 
e_flag=aTRUE; 
> 

else 
MB->menubar_item=7; 


> 


else if(x<MB->mb_map[9] [0] ) 
{ 
1 f (MB->number<9) 
break; 
else’ if(MB->menubar_item==8) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
> 
else 
MB->menubar_item=8; 
> 


else if(x<MB->mb_map[10] [0] ) 
{ 
i f (MB->number<10) 
break; 
else if (MB->menubar_item==9) 


else 
MB->menubar_item=9; 


> 


else if(x<MB->mb_map[11) [0] ) 
{ 
1 f (MB->number<11) 
break; 
else if (MB->menubar_item==10) 
{ 
ret_val = 1; 
e_flag=aTRUE; 
> 
else 
MB->menubar_item=10; 
) | 


else 
MB->menubar_item = MB->menubar_item; 
> 
else if(key==2) 
e_flag=1; 
else 
e_ flag = e flag; 
key=0; 


} 
else if(key) 
{ 


// check of active_keys match 
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forCitem=0; item<MB->number; item++) 
{ 
if (MB->key_list Litem] ==key) 
{ 


MB->menubar_item = item; 
ret_val = 1; 
e_flag=aTRUE; 
key=0; 
break; 
) 

M 


// label for openDropDown bypass 
HOT_BYPASS: 
// check for left or right arrow key match 
switch(key) 
ee RIGHT_ARROW: // At right item? 


1f(MB->menubar_item==MB->number-1) // Yes? 
MB->menubar_item=0; // set left item 


else // Else 
MB->menubar_itemt++; // move rt 1 item 
break; 
case LEFT_ARROW: // At left item? 


if(MB->menubar_item==0) // Yes? 
MB->menubar_item=MB->number-1; // set right item 


else // Else 
MB->menubar_item--; // move \(ft 1 item 
break; 


case ENTER: 
ret_val = 1; 
e_flag=aTRUE; 
break; 
> 
> 
} while(!e_flag); 
if(MB->menubar_item != MB->old_menubar ) 
{ 
// turn mouse off 


if (mouse_instal led) 
msoff(); 


// erase old highlight 
vdAttr(0,0,80,si_attr); 


forCitem=0; item<MB->number; item++) 
vdAttr(0,key_tab[item] ,1,sk_attr); 


// Inverse proper menu item using mb_map[] [] 
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vdAttr(0,MB->mb_map(MB->menubar_item)] (0), 


MB->mb_map[MB->menubar_item] [1],sinv_attr); 


// turn mouse on 
if(mouse_instal led) 
mson(); 
> 
*event = MB->menubar_item; 


return ret_val; 


CTU 
// 
// short delay 


// 
SILILITTVLTTLITLT TTDI TTT 


static void 
lot_delay() 
{ 
int 11,12; 
if(lot_flag) 
{ 
for¢i1=0; 11<50; i1++) 
for(i2=0; i2<200; i2++) 
12=12; 
lot_flag=0; 
} 


CULL 
// 

// display the menu bar 

// 
COU 


void 

_fastcall showMenuBar(MENUBAR_CLASS *MB) 
{ 

int column, item; 

char *cptr; 


// if mouse is installed turn the mouse 
// off 


if (mouse_instal led) 
msoff(); 


// erase first two rows 
vdWrite(0,0,80,buf32,si_attr); 


// write items to top bar 
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column=1: 
item = 0; 


for(item=0; item<MB->number; item++) 
{ 
vdAttr(0,column,1,sk_attr); 
cptr = (char *)MB->name[item] ; 
for(;;) 


{ 
vdChr (0, column++, *cptr++)> 
if(!*cptr) 
break; 
> 
column += 2: 
) 


MB->menubar_item=0; 
MB->old_menubar=0; 


// if the mouse is installed then 
// turn on the mouse 


if (mouse_instal led) 
mson(); 
} 


SULLLTSSLTTTT TNL TATA 
I 


// drop down window 
// 


int 

_fastcall openDropDown(MENUBAR_CLASS * MB,int item,char **i_list,int k_list{[]) 
€ 

int row,col; 

int count; 

int uc,ur,lc,lr; 
int item_number ; 
int width; 

int val; 

int key,e_ flag; 
RECT *R; 

int new_row; 

int old_row; 

int q_ button; 
int x,y; 

int first; 


// set for first time delay 
first = 0; 

// check item array for size 
item_number=0; 


whileci_listCitem_number] ) 
item_number++; 
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// get window width 
width=0; 
for(count=0; count<item number; count++) 


{ 
val = strlen(i_list [count] ); 


if(val>width) 
width=val>: 

) 
width += 4; 
// get upper left hand column 
uc = MB->mb_map[item] [0]; 
// set lower right hand corner 
le = uc + width; 
// set upper row 
ur = 1; 
// set lower row 


ir = item_number+3; 


// if the mouse is installed turn off the mouse 


if(mouse_instal led) 
msoff(); 


// allocate rectangular structure 
R = setRect(R,ur,uc,(r,lc); 

// save rect screen image 
saveRect(R); 

// clear rect 


for (row=R->ul_ row; row<R->Lr_row; rowt++) 
for(col=R->ul_col;col<R->lr_col; col++) 


vdChar(row,col,mkToken(' ',MB->si_attr)); 


// put box arount rect 


boxRect(R,S S S_S,MB->si_attr); 


// if mouse installed then 
// turn on the mouse 


if(mouse_instal led) 
mson( ); 


// write items 
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for(count=0; count<item_number; count++) 
{ 
vdwrite(count+2, 
R->ul_col+2, 
strlen(i_list[count]), 
i_list{count], 
MB->si_attr); 
vdAttr(count+2, 
R->ul_col+2,1,MB->sk_attr); 
} 


// set row location for top item 


2; 
3; 


new_row 
old_row 


// initialize loop variables 


key = 0; 
e flag = 0; 


do 
{ 
// highlight proper item 


if(new_row!= old_row) 
{ 
// write items 


for(count=0; count<item_number; count++) 
{ 
vdwWrite(count+2, 
R->ul_col+2, 
strlen(i_list [count] ), 
i_list [count], 
MB->si_attr); 
vdAttr(count+2, 
R->ul_col+2,1,MB->sk_attr); 
> 
// turn off inverse on old row 
vdAttr(old_row,R->ul_col+1,width-2,MB->si_attr); 
// turn on key highlight 
vdAttr(old_row,R->ul_col+2,1,MB->sk_attr); 
// inverse new row 
vdAttr(new_row,R->ul_col+1,width-2,MB->sinv_attr); 
// set old_row = new_row 
old_row = new_row; 


> 
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ifc! first) 


{ 

for(count=0; count<25000; count++) 
lot_delay(); 

first = 1; 

) 


// scan for key press 


key = gtKBstat(); 


// if no key press and the mouse is 
// installed 


if((!key)&&(mouse_instal led) ) 
ii get button value 
q_button = msstat(&x,&y); 
// convert to text coordinates 


x /= 8; 
y /= 8; 


SILITTTLTLLT TALL T TTT TTT 
// 


// 
// 


mvCur (22,40); 


printf("x = 203d Y = X%03d item_row = %d",x,y,item_number); 


mvCur (23,40); 


// printf("ur = %03d, uc = 403d, lr = 403d le = %03d",ur,uc,\(r,lc); 
OU 


// if button press is left button 
i f(q_button==1) 

{ 

if (Cy<=1) | | Cy>=item_number+2)) 


e_flag=1; 
new_row=315; 


} 

else if((x<=uc)||(x>=le-1)) 
{ 
e_flag=1; 
new_row=315; 
> 

else 
{ 
e_flag=1; 
new_row=y; 

> 


// process key press 


switch(key) 
{ 
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case RIGHT_ARROW: 
e_flag=1; 
new_row=315; 
right_flag=1; 
break; 


case LEFT_ARROW: 
e_ flag=1; 
new_row=315; 
left_flag=1; 
break; 


case ESCAPE: 


e_flag=1; 
new_row=315; 
break; 


case DOWN_ARROW: 
1f (new_row==i tem_number+1) 
new_row = 2; 
else 
new_row++; 
break; 


case UP_ARROW: 
1f(new_row==2 ) 
new_row = item_number+1; 
else 
new_row--; 
break; 


case ENTER: 
e_flag=1; 


break; 


default: 


for(count=0; count<item_number; 


{ 
if (key==k_lList [count] ) 
{ 


e_flag=1; 
new_row = count+2; 
> 
M 
break; 


> 
// end of loop 
) while(!te_ flag); 


// if the mosue is installed 
// then turn off the mouse 


if (mouse_instal led) 
msoff(); 


// restore screen rect image 


count++) 
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restRect(R); 
// destroy screen rect 
dsyRect(R); 


// if the mouse is installed 
// then turn on the mouse 


if(mouse_instal led) 
mson(); 


// return the menu item selected 


return new_row-2; 
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In a very real sense PROG36.C, discussed in this section, is the crown 
jewel of this book. It takes the Microsoft C 6.0 optimized primitive screen, 
keyboard, and mouse routines presented previously in the text and uses 
them to the max. I have designed PROGS36.C so it may be used as a shell. 
This program shell permits quick and easy drop-down window/menu-bar 
user interface schemes in your applications programs. All you need to do 
is change menu-item array text to fit your needs and call your applica- 
tion’s subroutine functions from within the main program loop. 

In other words, with a minimum of effort you’ll be able to reshape the 
look of existing programs to have the contemporary drop-down window/ 
menu-bar look. PROG36.C has been heavily commented. Feel free to use 
this program as a sort of generic shell program from which to start your 
program development cycle. 

PROGS6.C is shown in FIG. 10-4. Compile PROG36.C and link the 
resultant PROG36.OBJ object module with your TABS.LIB file. Running 
PROG36.EXE shows the TAB drop-down window/menu-bar scheme in 
action. 


10-4 The source code listing to PROG36.C. 


VIVTTTTTTLTTAT TTT ATT 
// 

// prog36.c 

// 

// Beginning workings of MENU BAR window 
// structures 

If 

// Date: 7/1/90 


// 
SITILTTTIT TT TL TLD TTT LTT TTT 
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FULLLLTTTLLLT TALL TAT 


// 
// Include Header Prototype files 
// 


// #include <dir.h> // turbo c 
#include <direct.h> // microsoft 
#include <dos.h> 

#include <stdio.h> 

#include <string.h> 

#include <tproto.h> 


// Function Prototypes 


void main(void); 
// void test_editobj(void); 


SILTTTTTTTTTLLT DTT TTT TT 


// 
// Declare function prototypes for 
// Lotus function list 


Sf 
UU 
void fun0(void); 

void funl(void); 

void fun2(void); 

void fun3(void); 

void fun4(void); 

void fun5(void); 


VILITTLLTLLT TATTLE TT 
// 


// Structure and global data declarations 


// 
ULL 
// space data 


char b352(80] = € 
32,32,32,32,32,32,52,32, 
32,32, 32,32,32,32,32 '32, 
32,32,32,32,32,52,92,52, 
32,32,352,32,32,52,50,50, 
32,32,32,32,32,52,32,5e, 
32,32,32,32,32,52,52,52, 


32 ,32,52,32,52,52, 52,50, 
32.32,32,32,32,32,32, 32, 
32 ,32,32,32,32,52,52,52, 
32,32,32,32,32,32,32,52 }; 
// Declare MenuBar Menu with 7 items 
MENUBAR_CLASS *MBI1; 


// mouse flag 
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int mouse_instal led; 


SISTTITTTLTTTLTTTTT ATLL TTT TT 
// 


// Interface Menu Data Declarations 


// 
SITTLITTTLTTLTTT AT TLTT TTT 


// Main menu bar data 


char *MB1_name[8] = ¢ 

"Info", // pos 0 name 
| "File", // pos 1 name 
F "Tables", // pos 2 name 
“ "Analysis", // pos 3 name 
"Print", // pos 4 name 
"Help", // pos 5 name 
"Quit", // pos 6 
NULL } ; // NULL list terminator 


int MB1_key[8] = ¢ 

ALT_I, 
ALT_F, 
ALT_T, 
ALT_A, 
ALT_P, 
ALT_H, 
ALT_Q, 
0); 


| char *DDO[2] = ¢€ 
| "About this...", 
| NULL }; 


Zl int DDO _key[2] = € 
ALT_A, 
0}; 


e char *DD1(9] = {€ 
"Open...", 
"Save...", 

"Change dir...", 
"Back one Dir...", 
"Root dir...", 
"Get info...", 
"Enter DOS shell", 
"Quit to DOS", 
NULL }; 


int DD1_key[9] = € 
ALT_O, 
ALT_S, 
ALT_C, 
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// item data and keys for drop down window 2 (FILE) 


char *DD2(10] = { 

“Enter Respondent Data", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
NULL }; 


int DD2_key[10] = ¢ 


// item data and keys for drop down window 3 (FILE) 


char *DD3(10] = ¢ 

"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
“Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
NULL 3}; 


int DD3_key[10] = ¢ 
ALT_A, 
ALT_B, 
ALT_C, 
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// item data and keys for drop down window 3 (FILE) 


char *DD4(10] = ¢€ 

"Currently Vacant", 
"Currently Vacant", 
“Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
“Currently Vacant", 
"Currently Vacant", 


in 


et 


NULL ); 


DD4_key{10) = ¢ 


// item data and keys for drop down window 3 (FILE) 


char *DD5[10] = ¢ 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
"Currently Vacant", 
NULL }; 


in 


SILTTTLLTLTT TTT AAT TAT TT 
// 


// Message window DATA 
// 
ULL 
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char *tsr_mess[12] = ¢ 
a 0 


e 
"Cerious Ver. 3.0 Demonstration", 
8 «. 
oc 08 

é 


"TSR Systems Ltd.", 
"516-331-6336", 


NULL }; 


char *not_coded[6] = {¢ 


a 08 
1 68 
"This function has not been coded at this time", 
te - 
| 
a 


NULL }; 


VILTITLITTTT LTT LTT TTT TTT 
// 


// Interface Functions 


SITIVTLITTLT LTT TTT 


void 
fun0() 


{ 

vdWrite(24,0,40,"Information about 'C'erious Tools V. 3.0", 
mkAttr(CRED,WHITE,OFF_INTENSITY,OFF_BLINK)); 

} 


void 
funi() 


{ 
vdWrite(24,0,40,"Create, Load or Save Data Files. at 
mkAttr(RED,WHITE,OFF_INTENSITY,OFF_BLINK)); 


} 


void 
fun2() 
{ 


vdWrite(24,0,40,"Create Data Tables and Enter Data " 
mkAttr(RED,WHITE,OFF_INTENSITY,OFF_BLINK)); 
) 


void 
fun3() 


{ 

vdwWrite(24,0,40,"Ways to Analyze Your Data Tables LP 
mkAttr(RED,WHITE,OFF_INTENSITY,OFF_BLINK)); 

} 


void 

fun4() 

{ 

vdWrite(24,0,40,"Print Statistical Analysis Reports aM 
mkAttr(RED WHITE ,OFF_INTENSITY,OFF BLINK)); 

} 
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void 

fun5() 

{ 

vdWrite(24,0,40,"Help Screens 
mkAttr(RED,WHITE,OFF_INTENSITY,OFF_BLINK)); 

> 


void 
funé() 
{ 


vdWrite(24,0,40,"QUIT Program and return command to DOS 


mkAttr (RED ,WHITE,OFF_INTENSITY,OFF_BLINK)); 
> 


SITTILITTTLTT TTT LTT LTT TT 
// 


// main(...) 

If 

// Program Start 
// 


ULL 


void 

main() 

{ 

int screen_attr; 
int ret_val,r_val; 
int event; 

int e_flag; 

int row,colum: 
char dbuff [25]; 


char *active_file; 


// set attributes 


iT 
a 


screen_attr = mkAttr(BLACK,WHITE,OFF_INTENSITY,OFF_ BLINK); 


// initialize video structure 

vidInit(); 

// clear the screen 

serncir(); 

// turn the screen white 

scrnAttr(screen_attr); 

// draw screen pattern 

for(row=1; row<24; row++) 
for(column=0; column<80; columnt++) 


vdChar (row, column, mkToken(177,screen_attr)); 


// turn the cursor off 
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offCur(); 
// check for mouse installed 
ret_val = msinit(); 


if(ret_val!=Oxffff) // no mouse 
mouse_instal led=1; 


// turn the mouse on 
if(mouse_instal led) 


mson(); 


SIVITITITTTTIDTTTTT TTL T TTT TTT TT 


// 

// Open MenuBar style window 

// 

MB1 = openMenuBar((MENUBAR_ CLASS *)MB1, // pointer to LOTUS CLASS 
MB1_name, // Item name List 
MB1_key, // Item explanation list 


mkAttr(BLACK,WHITE,OFF_INTENSITY,OFF BLINK), // Item attr 
mkAttr(BLACK,GREEN,OFF_INTENSITY,OFF BLINK), // Item inverse 
mkAttr(RED,WHITE,OFF_INTENSITY,OFF_BLINK)); // Expl. attr 


//showMenuBar (MB1); 


e_ fiag = 0; 


do 
{ 
if (menubarEvent (MB1,&event ) ) 
{ 
switch(event) 
{ 


case 0: 
fun0(); 
ret_val = openDropDown(MB1,0,DD0,&DD0_key [0] ); 
switch(ret_val) 
{ 
case 0: 
openMessage(tsr_mess,WHITE,BROWN,WHITE,GREEN); 
break; 
> 
break; 
case 1: 
funl(); 
ret_val = openDropDown(MB1, event ,DD1,&DD1_key [0] ); 
switch(ret_val) 
{ 
// open file name 
case 0: 
openMessage(not_coded,WHITE,BLUE,WHITE,GREEN); 
break; 
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// save file name 


case 1: 
openMessage(not_coded, WHITE, BLUE ,WHITE,GREEN); 


break; 


// change directory 


case 2: 
openMessage(not_coded,WHITE,BLUE ,WHITE,GREEN); 


break; 


// back one directory 


case 3: 
openMessage(not_coded,WHITE,GREEN,WHITE,RED); 


break; 


// root directory 


case 4: 
openMessage(not_coded,WHITE,GREEN,WHITE,RED); 


break; 


case 5: 
openMessage(not_coded,WHITE,GREEN,WHITE,RED); 


break; 


case 6: 
openMessage(not_coded, WHITE, BLUE ,WHITE,GREEN); 


break; 
case 7: 
e_flag=1; 
break; 
) 
break; 
case 2: 


fun2(); 
ret_val = openDropDown(MB1,event ,DD2,&DD2_key([0]); 


switch(ret_val) 


{ 


case 0: 
openMessage(not_coded,WHITE,BLUE,WHITE,GREEN); 


break; 


case 1: 
openMessage(not_coded, WHITE, BLUE , WHITE, GREEN); 


break; 


case 2: 
openMessage(not_coded, WHITE, BROWN, WHITE, GREEN); 


break; 


case 3: 
openMessage(not_coded,WHITE,GREEN,WHITE,RED); 


break; 


case 4: 
openMessage(not_coded, WHITE,RED,WHITE, GREEN); 


break; 


case 5: 
openMessage(not_coded, WHITE, BLUE, WHITE,GREEN); 


break; 


case 6: 
openMessage(not_coded, WHITE, BROWN ,WHITE, GREEN); 


break; 
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case 7: 
openMessage(not_coded, WHITE, GREEN, WHITE,RED); 
break; 

case 8: 


openMessage(not_coded, WHITE ,RED,WHITE,GREEN); 
break; 
> 
break; 
case 3: 

fun3(); 

ret_val = openDropDown(MB1, event ,DD3,&DD3_key [0] ); 

switch(ret_val) 


{ 

case 0: 
openMessage(not_coded, WHITE ,RED,WHITE,GREEN); 
break; 

case 1: 
openMessage(not_coded, WHITE, BLUE, WHITE, GREEN); 
break; 

case 2: 
openMessage(not_coded, WHITE, BROWN, WHITE, GREEN); 
break; 

case 3: 
openMessage(not_coded, WHITE,GREEN,WHITE,RED); 
break; 

case 4; 
openMessage(not_coded, WHITE,RED,WHITE,GREEN); 
break; 

case 5: 
openMessage(not_coded, WHITE ,BLUE , WHITE ,GREEN); 
break; 

case 6: 
openMessage(not_coded, WHITE, BROWN, WHITE,GREEN); 
break; 

case 7: 
openMessage(not_coded, WHITE,GREEN,WHITE,RED); 
break; 

case 8: 
openMessage(not_coded, WHITE ,RED,WHITE,GREEN); 
break; 

} 

break; 
case 4: 
fun4(); 


ret_val = openDropDown(MB1,event,DD4,&DD4_ key[0]); 
switch(ret_val) 
{ 
case 0: 
openMessage(not_coded, WHITE ,RED,WHITE,GREEN); 
break; 
case 1: 
openMessage(not_coded, WHITE, BLUE ,WHITE,GREEN); 
break; 
case 2: 
openMessage(not_coded, WHITE ,BROWN,WHITE,GREEN); 
break; 
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case 3: 
openMessage(not_coded, WHITE ,GREEN,WHITE,RED); 
break; 

case 4: 
openMessage(not_coded, WHITE ,RED,WHITE,GREEN); 
break; 

case 5: 
openMessage(not_coded, WHITE, BLUE ,WHITE, GREEN); 
break; 

case 6: 
openMessage(not_coded, WHITE ,BROWN,WHITE,GREEN); 
break; 

case 7: 
openMessage(not_coded, WHITE,GREEN,WHITE,RED); 
break: | 

case 8: 
openMessage(not_coded,WHITE,RED,WHITE,GREEN); 
break; 

) 

break; 
case 5: 
fun5(); 


ret_val = openDropDown(MB1,event ,DD5,&DD5_key [0] ); 
switch(ret_val) 


{ 
case 0: 
openMessage(not_coded, WHITE ,RED,WHITE,GREEN); 
break; 
case 1: 
openMessage(not_coded, WHITE, BLUE ,WHITE, GREEN); 
break; 
case 2: 
openMessage(not_coded, WHITE, BROWN ,WHITE, GREEN); 
break; 
case 3: 
openMessage(not_coded, WHITE, GREEN,WHITE,RED); 
break; 
case 4: 
openMessage(not_coded,WHITE,RED,WHITE,GREEN); 
break; 
case 5: 
openMessage(not_coded, WHITE, BLUE ,WHITE,GREEN); 
break; 
case 6: 
openMessage(not_coded, WHITE, BROWN, WHITE, GREEN); 
break; 
case 7: 
openMessage(not_coded, WHITE, GREEN ,WHITE,RED); 
break; 
case 8: 
openMessage(not_coded,WHITE,RED,WHITE, GREEN); 
break; 
> 
break; 
case 6: 
fun6(); 
e_flag=qui tProgram(WHITE, BROWN, WHITE ,GREEN); 
if(!te_flag) 
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{ 
showMenuBar (MB1); 
vdWrite(24,0,80,b32,screen_attr); 
> 
break; 
> 


) 
} while(!e_flag); 


If | // 
VILTTLTTLATT DTT AT TATA TATA AAT ATT 
// turn the mouse on 


if (mouse_instal led) 
msoff(); 


// clear the screen 


scrnCir(); 


// turn the cursor on 
onCur(); 
) 


// 
// prog36.c 
// 


SIVTTTTLITLATTTTLTDL TTT TTT 


Summary 


In this chapter a shell program (PROG36.C) was presented for your use. In 
essence PROG36.C puts your TAB libraries through their paces. When 
you write your applications programs the TAB library function can seem 
quite smooth. So smooth that it might be easy to forget that many object 
modules were developed with MASM 5.1. These assembly-generated mod- 
ules use the on-the-stack parameter-passing scheme. These on-the-stack 
parameter-passing modules were mixed with Microsoft C 6.0-generated 
object modules. The Microsoft C 6.0-generated modules use the _fastcall 
(in-the-register) convention and inline assembler. From a different angle 
I’m saying that your TAB library object modules are infused throughout 
with the optimization techniques outlined in chapter 1. 

PROG36.C can be effectively used at the start of a program develop- 
ment cycle by placing your program’s options in the drop-down window/ 
menu-bar interface arrays. Once the main interface has been completed 
you can easily add functionality to your program in incremental steps by 
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adding one program function module at a time. Note how PROG36.C pro- 
vides stubb-type messages that tell you (or your team) which functions are 
coded and debugged and which functions are not. Using this incremental 
approach to program development will allow for good communication 
between team members. 

Figure 10-5 presents the summary listing to your TAB libraries. 

If you have any comments on any issues presented in this text, feel 
free to write me via TAB Books. I hope you had as much fun working your 
way through this book as I had in developing its code. 


10-5 The final summary list of your TAB library modules. 


DOL ECD ss wikisie evens bleep @boxRect.....eee0. boxrect 
@ClIPRect... .eevees clrrect @delay...cscecceee delay 
adispWind......... dispwind @dsyRect.......00. dsyrect 
@dSYWINnd....eeeeee dsywind @exit_bad......... exit_bad 
afillRect......... fillrect QOCCUl sce cca ewwes gtcur 
@gtKey...escceeees gtkey alotusEvent....... lotus 
amenubarEvent..... menubar BOLTCUR siceacccesa of fcur 
MONCUr. .. eee cnaees oncur @openDropDown..... menubar 
a@openLotus........ lotus @openMenuBar...... menubar 
a@openMessage...... message QDUCCH sae cexenees putchr 
MOUCS CP oecciee cena. putstr aquitEvent........ quitprog 
aquitProgram...... qui tprog ORG OC ir kc scores rcloc 
OPGIMGssscececesis rdimg @rdWind.......ee0. rdwind 
@remvWind.....eee- remvwind @restRect......... restrect 
@restScrn..... -..-restscrn @rmvCur....eeeeees rmvcur 
arsizeCur......... ssizecur @saveRect......... saverect 
@saveScrn.....eeee savescrn OSG LOC asics Slneaeies scloc 
QSCrnAttr.....eee. scrnattr asetAttr........0. setattr 
asetBord.......... setbord @setRect.......... setrect 
asetTitle......... settitle @setWind.......... setwind 
a@showLotus........ lotus @showMenuBar...... menubar 
@SizeCur...ccecces sizecur QSIZEIMG...ceecee sizeimg 
@sizeRect......... sizerect @ssizeCur......... ssizecur 
@strtWind......... strtwind @VGEdit....ceenuee vdedit 
@vrdChar.......06- vrdchar QWIBOX oe ce cece en'ns wrbox 
QWrIMG...eescenees wrimg Q@wrWind........... wrwind 
Q@WVGACtr. cece wees wvdattr @wvdChar.....seeee wvdchar 
@WVGHOriZ.....eeee wvdhor iz DUVOSER wiv ccs eases wvdstr 
@wvdVert.....eeees wvdvert @wvdWrite......... wvdwrite 
@wvrdChar......... wyrdchar _addijiff......... timer 
_cancel_mess...... quitprog JOU Casvwewaiune ies vidinit 
GOWN oie waseeSee quitprog Roe! Pere rr re quitprog 
_defkey1.......... vdedit _defkey2.......... vdedit 
_defkey3........4. vdedit _defkey4.......... vdedit 
_get_jiffhour..... timer _get_jiffmin...... timer 
_get_jiffy........ timer _get_ljiffy....... timer 
_gtKBstat......... gtkbstat _g_ shape.......... g_shape 
_initialize_timer..timer _lot_delay........ lotus 
MKACUD ccs see ees mkattr _mkToken.......00- mktoken 
MSIMIC. ccs cececee msinit -MSOT Ti iseesenw sex msof f 
1, § eee mson _MSStat .is4 seeuaes msstat 
TIVCUP . ce enccnces mvcur _newtimer......... timer 
of fSound......... of fsound _onSound........6. onsound 
_putCRLF.......... putcrlf _quit_holder...... quitprog 
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mvcur 
_mvCur 


timer 
_addi jiff 
_get_ljiffy 
_remove_timer 


gtcur 
agtCur 


rmvcur 
armvCur 


scloc 
asCloc 


rcloc 
arCloc 


oncur 
aonCur 


s_shape 
_S_shape 


g_shape 
_9_shape 


offcur 
aof fCur 


sizecur 
asizeCur 


ssizecur 
arsizeCur 


mktoken 
_mkToken 


mkattr 
_mkAttr 


sernclr 
_sernclr 


quitprog q_down........ 
quitprog _remove_timer.. 
timer SSCPNElPicevies 
vidinit _SPARKLE_FLAG.. 
timer _stop_timer.... 
s_shape _VCACtP. es eeee 
vdchar VOCHE otc c'nws 
vdhor iz EVAVEF Lo icwns ess 
vdwrite _VidInit....... 
vidinit 


Offset: 00000010H Code and data 


Offset: OOO000b0H Code and data 
_get_jiffhour _get_jiffmin 
_initialize timer 


_reset_timer _Start_timer 


Offset: 00000390H Code and data 


Offset: 000004a0H Code and data 


Offset: O000005e0H Code and data 


Offset: 00000710H Code and data 


Offset: OO0000830H Code and data 


Offset: O0000950H Code and data 


Offset: OO0Q009fOH Code and data 


Offset: 00000a80H Code and data 


Offset: 00000ba0H Code and data 


Offset: O0000cbOH 
assizeCur 


Code and data 


Offset: OOO00dfOH Code and data 


Offset: 00000e90H Code and data 


Offset: OOO00f30H Code and data 
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vi 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


scrnclr 


dinit 


15H 


e0H 
_get_jiffy 
_newt imer 
_stop_timer 

2cH 

30H 

26H 

10H 


eH 


cH 


7H 


eH 


1aH 


26H 


bH 


17H 


1aH 
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vidinit 
_ert 
~VID_PORT 


vdehar 
_vdChar 


vdwrite 
_vdwWr ite 


vdhor iz 
_vdHoriz 


vdvert 
_vdVert 


vdattr 
_vdAttr 


vrdcher 
avrdChar 


savescrn 
asaveScrn 


restscrn 
arestScrn 


delay 
ade lay 


bleep 
ableep 


gtkey 
agtKey 


vdedit 
avdEdit 
_defkey4 


onsound 
_onSound 


of fsound 
_of fSound 


gtkbstat 
_gtKBstat 


fillrect 
afiltRect 


setrect 
asetRect 


sizerect 
asizeRect 


Offset: O0000fdOH 
_SCRNSEG 


Offset: 000011a0H 
Offset: 00001270H 
Offset: 00001350H 
Offset: 00001420H 
Offset: 000014f0H 
Offset: 000015c0H 
Offset: 00001700H 
Offset: 00001860H 
Offset: 000019d0H 
Offset: 00001af0H 
Offset: 00001c30H 


Offset: 00001d30H 
_defkey1 


Offset: 00002780H 
Offset: 00002820H 
Offset: 000028b0H 
Offset: 00002950H 
Offset: 


00002aa0H 


Offset: 00002c10H 


Code and data 


_SPARKLE_FLAG 


Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 
Code and data 


Code and data 
_defkey2 


Code and data 


Code and data 


Code and data 


Code and data 


Code and data 


Code and data 
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size: 71H 


_vidiInit 


size: 27H 


size: 42H 
size: 2cH 
size: 32H 
size: 2eH 
size: 3cH 
size: 44H 
size: 46H 
size: 32H 
size: 2eH 
size: 14H 


size: /5aH 


_defkey3 


size: 18H 
size: 7H 

size: 11H 
size: 42H 
50H 


size: 


size: 10H 
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clrrect 
actrRect 


boxrect 
aboxRect 


saverect 


asaveRect 


restrect 


arestRect 


putcrlf 
_putCRLF 


putstr 
@putStr 


putchr 
@putChr 


wrimg 
Qwr img 


wrbox 
awrBox 


wrwind 
awrWind 


rdimg 
ardimg 


sizeimg 
asizelmg 


exit_bad 


adexit_bad 


rdwind 
ardWind 


dispwind 


Adi spWind 


remvwind 


aremvwind 


settitle 


asetTitle 


setwind 
asetWind 


setbord 
asetBord 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


Offset: 


00002d10H 


00002e60H 


00003200H 


00003350H 


000034a0H 


00003540H 


00003690H 


00003790H 


000038d0H 


00003c50H 


00003d90H 


00003ed0H 


00003 fd0H 


00004150H 


00004290H 


000043c0H 


000044 f0H 


00004670H 


00004880H 


Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
Rede 
Code 
Code 
Code 
Code 
Code 
Code 


Code 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 


and data 
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size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


size: 


46H 


238H 


42H 


42H 


bH 


38H 


14H 


42H 


228H 


42H 


42H 


10H 


43H 


42H 


18H 


18H 


56H 


cdH 


4H 


10-5 Continued. 


dsywind Offset: 00004970H Code and data size: 3aH 
ads yw ind 

setattr Offset: O00004ab0H Code and data size: 4H 
asetAttr 

strtwind Offset: 00004ba0H Code and data size: 42H 
astrtwWind 

wvdattr Offset: 00004d10H Code and data size: 26H 
awvdAttr 

wvdchar Offset: 00004e40H Code and data size: 22H 
awvdChar 

wvdhor iz Offset: O0004f60H Code and data size: 28H 
awvdHor iz 

wvdstr Offset: 00005090H Code and data size: 28H 
awvdstr 

wvdvert Offset: 000051cOH Code and data size: 26H 
awvdVert 

wvdwrite Offset: O00052f0H Code and data size: 5aH 
awvdwr ite 

wvrdchar Offset: 00005460H Code and data size: 20H 
awvrdChar 

mson Offset: 00005590H Code and data size: 6H 
_mson 

msof f Offset: 00005620H Code and data size: 6H 
_msof f 

msstat Offset: O00056b0H Code and data size: 18H 
_msstat 

msinit Offset: 00005750H Code and data size: 10H 
_msinit 

scrnattr Offset: O00057f0H Code and data size: 2cH 
ascrnAttr 

vdchr Offset: 00005920H Code and data size: 27H 
_vdChr 

qui tprog Offset: 000059e0H Code and data size: 698H 
aqui tEvent aqui tProgram _cancel_mess _c_down 
_¢_up _quit_holder _quit_mess _q_down 
_9_up 

lotus Offset: O00006500H Code and data size: 63eH 
alotusEvent @openLotus @showLotus _lot_delay 
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menubar Offset: O0006dd0OH Code and data size: a52H 
a@menubarEvent @openDropdown @openMenuBar ashowMenuBar 

message Offset: O0007bd0H Code and data size: 309H 
dopenMessage 

dsyrect Offset: O00080d0H Code and data size: 16H 
adsyRect 
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: /Gr parameter-passing, 29-51, 60 


PROG4, 30-41 
PROGS, 38, 41-51 

/Gs remove stack-probe 
optimization, 1, 2, 14-18 


' /ML case-sensitivity switch, 7 


/Oi intrinsic function generation 
optimization, 2, 13 

/Ol loop optimization, 1, 2, 14 

/Ot speed optimization, 1, 8, 60 


___asm, inline assembler invoke, 
20 
___cdecl, 60 
___fastcall, 2-3, 29-51, 60 
/Gr , PROG4, 30-41 
/Gr , PROGS, 38, 41-51 


A 
absolute value, abs(), 13 
active Cursor-management (see 
cursor-management) 
ADDLIB.BAT, 82, 83 
aggressive optimizations, 1 
AL.BAT, 8 
AM.BAT, 8 
AS.BAT, 8 
ASCII.H header file, 78-80 
Assembly code batch files 
(AS.BAT; AM.BAT; AL.BAT), 8 
attributes, video, 107 


B 
BDWRITE program, 52-54 
BLEEP 144 
BOXRECT, 166-168 


Cc 
calling conventions, 2 
CCS.BAT compiling batch file, 
83-85 
CLARGE.BAT, 93 
CLRRECT, 162-163 


Index 


CMEDIUM.BAT, 93 
common-subexpression 
optimization, 1 
compiler options 
invoke from command line, 2 
pragma statements, 2 
consistent floating point results 
optimization, 2 
coordinate systems, global vs. 
local, 159 
CSMALL.BAT, 93 
cursor-management functions, 
81-105 
get cursor position, GTCUR1, 
83-91 
gtCur() test, PROG7, 84-85, 88 
gtCur() test, PROG8, 88-89 
internal cursor visibility 
assembly bindings, 98-100 
library management, LIB.EXE 
program, 81-83 
move cursor, MVCUR, 91-93 
move cursor relative to current 
position, RMVCUR, 9, 93 
mvCur( ) test, PROGY, 92-93 
off cursor, OFFCUR, 98-99 
on cursor, ONCUR, 98-99 
onCur( ) and offCur() test, 
PROG12, 98-101 
rCloc( ) test, PROG11, 97-98 
restore location, RCLOC, 96-97 
rmvCur() test, PROG10, 95 
save location, SCLOC, 96-97 
sCloc() test, PROG11, 97-98 
size change, SIZECUR and 
SSIZECUR, 101-104 
sizeCur( ) and ssizeCur( ) test, 
PROG13, 103-104 


D 
defines and structures, 
TSTRUCT.H, 69-73 
DELAY, 143 


direct video access method, 
screen-handling routines, 107 

DISPWIND, 189-190 

drop-down window interfaces 
(see interfaces, menu-bar) 

DSYRECT, 300 

DYSWIND, 195-196 


E 
efficiency optimization, 2 
event queue handlers, 225-226 
demo program, PROG32, 226, 
231-236 
EXIT__BAD, 188 


F 

FILLRECT, 164-165 

floating point, absolute, fabs(), 13 

function prototypes, TPROTO.H, 
63-69 

functions, intrinsic, 13 


G 

global coordinates, 159 

global register allocation 
optimization, 1 

GTCUR1, cursor-management 
functions, 83-91 

GTKBSTAT, 137, 139-140 

GTKEY, 137-138 

G___SHAPE cursor assembly 
binding, 99-100 


H 
header files, library, 63-80 
hot keys, interfaces, 
menu-bar/drop-down , 
299-300 


I 
inline assembler, 18-28, 60 
invoke, replace memset( ) and 
strcpy(), PROG2, 21-24 


inline assembler, (cont.) 
invoke, ___asm, 20 
library version added, 90-91 
loop optimization, PROGS, 
25-28 


parameter-passing, PROGS, 
38, 41-51 
inout options 
byte from port, inp(), 13 
word from port, inow(), 13 
interfaces, Lotus-style, 265-298 
change screen display 
attributes, SCRNATTR, 267 
create interface, openLotus( ); 
lotusEvent( ); showLotus( ), 
280 
preparatory files, 266-267 
quit-program pop-up window, 
QUITPROG, 268-278 
quitProgram( ) call demo, 
PROG34, 278-279 
shell program, PROG35, 265, 
288-293 
source code, LOTUS.C, 
280-288 
TABS.LIB listing, 293-298 
write character to screen, 
VDCHR, 266-267 
interfaces, menu-bar/drop-down, 
299-336 
create interface, MENUBAR.C, 
304-319 
free memory, DSYRECT, 
300 
highlighting items, 299 
hot keys, 299-300 
item selection, 299 
preparatory files, 300-319 
shell program, PROGS6, 
319-331 
text display message, 
MESSAGE, 300-304 
interrupts 
disable, ___disable(), 13 
enable, ___enable(), 13 
intrinsic function generation 
optimization (/Oi), 2, 13 
intrinsic functions, 13 


K 
keyboard routines, 137-158 
bleep sound, BLEEP, 144 
delay sound, DELAY, 143 
edit keyboard routines, vdEdit( 
), 144-154 
gtKBstat() demo, PROG23, 
140-141 
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gtKey() demo, PROG22, 
137-139 
return key press, GTKBSTAT, 
137, 139-140 
sound off, OFFSOUND, 
142-143 
sound on, ONSOUND, 
141-142 
stop program/wait for keypress, 
GTKEY, 137-138 
vdEdit( ) demo, PROG24, 
154-156 
keyboard scan/character codes, 
KEYBOARD.H, 69, 74-78 
KEYBOARD.H keyboard 
scan/character code header 
file, 69, 74-78 


L 
large memory model 
compile-and-link batch 
(CLARGE.BAT), 93 
create file (TABL.LIB), 82, 83, 
91 
LIB.EXE library management 
program, 81-83, 104-105 
library header files, 63-80 
ASCIl/miscellaneous defines, 
ASCII.H, 78-80 
defines and structures, 
TSTRUCT.H, 69-73 
function prototypes, 
TPROTO.H, 63-69 
keyboard scan/character 
codes, KEYBOARD.H, 69, 
74-78 
library management 
add object module 
(ADDLIB.BAT), 82, 83 
create new file, 82, 83 
current TAB library functions, 
134-135 
inline assembler added, 90-91 
large memory model 
(TABL.LIB), 82, 83, 91 
LIB.EXE library management 
program, 81-83, 104-105 
medium memory model 
(TABM.LIB), 82, 83, 91 
planning, 60-61 
small memory model 
(TABS.LIB), 82, 83, 91 
TAB modules, summary listing, 
331-336 
TIMER code, 82, 83, 90 
local coordinates, 159 
long integers, labs(), 13 
loop optimization (/Ol), 1, 2, 14 


Lotus-style interfaces (see 
interfaces, Lotus-style) 
lotusEvent( ), 280-288 


M 
MASM 5.1 macro assembler, ix-x 
PROC directive, 51-60 
USES directive, 51-60 
madl variables, memory models, 7 
medium memory model 
compile-and-link batch 
(CMEDIUM.BAT), 93 
create file (TABM.LIB), 82, 83,9" 
memory 
compare, memcmp(), 13 
copy, memcpy(), 13 
set to value , memset(), 13 
memory models, 7, 61, 81, 82, 
83, 91 
menu-bar interfaces (see 
interfaces, menu-bar) 
MENUBAR.C, 304-319 
MESSAGE, 300-304 
MKATTR, 108-109 
MKTOKEN, 108 
mouse routines, 225-264 
current mouse location, 
MSSTAT, 228-231 
event queue handler demo, 
PROG82, 226, 231-236 
event queue handler, 225-226 
initialize mouse, MSINIT, 
226-227 
mouse- and keyboard-driven 
menu demo, PROGS3, 
236-260 
mslnit() demo, PROG31, 
227-228 
off mouse, MSOFF, 228-230 
on mouse, MSON, 228-229 
TABS.LIB listing, 260-264 
mouse-and-keyboard driven 
menu demo, PROG33, 
236-260 
MSINIT, 226-227 
MSOFF, 228-230 
MSON, 228-229 
MSSTAT, 228-231 
MVCUR, 91-93 


N 
nested loops, test program 
(PROG1 program), 8-12 
no-aliasing optimization, 1 


O 
OFFCUR, 98-99 
OFFSOUND, 142-143 


ONCUR, 98-99 
ONSOUND, 141-142 
openLotus( ), 280-288 
openMessage( ), 300-304 
optimization theory and practice, 
1-61 
aggressive optimizations, 1 
common-subexpression 
optimization, 1 
consistent floating point results 
optimization, 2 
efficiency optimization, 2 
global register allocation 
optimization, 1 
intrinsic function generation 
(/Oi), 2, 13 
loop optimization (/Ol), 1, 2, 14 
no-aliasing optimization, 1 
parameter-passing convention, 
/Gr (fastcall), 29 
remove-stack probe 
optimization (/Gs), 1, 2, 14-18 
size optimization, 1 
speed optimization (/Ot), 1, 2, 
60 


timer, jiffy-timer (TIMER code), 
3-8 


unsafe-loop disable 
optimizations, 1 
output options 
byte at port, outp(), 13 
word at port, outpw(), 13 


Pp 
parameter-passing, 2 
/Gr, 29-51, 60 — 
[Gr PROG4, 30-41 
/Gr PROGS, 38, 41-51 
inline assembler, PROGS, 38, 
41-51 
——__fastcall, 2-3, 29-51, 60 
__fastcall PROG4, 30-41 
__fastcall PROGS, 38, 41-51 
pragma statements, 2 
intrinsic-function generation, 13 
loop optimization, 14 
speed optimization (/Ot), 8 
PROC directive, ix, 51-60 
PROG1 program 
disassembled listing, 
PROG1.OBuJ, 11-12 
intrinsic function generation 
(/Oi), 13 
jiffy timer use, 8-12 
nested-loop tester, 8-12 
remove-stack probe 
optimization (/Gs), 14-18 
source code, PROG1.C, 9-10 


PROG2 inline-assembler invoke, 
21-24 

PROGS3 inline assembler loop 
optimization, 25-28 

PROG4 parameter-passing, 30-41 

PROGS5 parameter-passing, inline 
assembler, 38, 41-51 

PROG6 bdWrite( ) program, 55-60 

PROG7 gtCur() test, 84-85, 88-89 

PROG8 gtCur( ) test, 88-89 

PROGY mvCur( ) test, 92-93 

PROG10 rmvCur( ) test, 95 

PROG11 sCloc() and rCloc( ) 
test, 97-98 

PROG12 onCur() and offCur() 
test, 98-101 

PROG13 sizeCur() and ssizeCur() 
test, 103-104 

PROG14 scrnClr() test, 110-111 

PROG15 screen-handling 
routines test, 108-109, 114-115 

PROG16 screen-write 
comparison, 115-120 

PROG17 vdHoriz( ) test, 121-123 

PROG18 vdVert() test, 123-125 

PROG19 vdAttr() demo, 125-128 

PROG20 vdAttr( ) test, 129-130 

PROG21 saveScrn() and 
restScrn( ) test, 132-133 

PROG22 gtKey() demo, 137-139 

PROG23 gtKBstat( ) demo, 140-141 

PROG24, vdEdit() demo, 154-156 

PROG25 clrRect( ); setRect( ); 
sizeRect( ) demo, 162-164 

PROG26 fillRect( ) demo, 165-166 

PROG27 boxRect( ) demo, 168-170 

PROG28 saveRect( )/restRect( ) 
demo, 172-175 

PROG29 text window display 
demo, 179, 202-206 

PROG3O0 vertical scroll-bar (Lotus) 
demo, 179, 206-220 

PROG31 msinit() demo, 227-228 

PROG32 event queue handler 
demo, 226, 231-236 

PROG33 mouse- and 
keyboard-driven menu demo, 
236-260 

PROG34 quitProgram( ) call 
demo, 278-279 

PROG35 Lotus-style interface 
shell program, 265, 288-293 

PROG36 interfaces, 
menu-bar/drop-down shell 
program, 319-331 

PUTCHR, 179-180 

PUTCRLF, 180-181 

PUTSTR, 181 


Q 
QUITPROG, 268-278 


R 
RCLOC, 96-97 
RDIMG, 186-187 
RDWIND, 189 
RECT structures, rectangle 
routines, 159-162 
rectangle routines, 159-178 
border, BOXRECT, 166-168 
boxRect() demo, PROG27, 
168-170 
clear screen, CLRRECT, 162-163 
clrRect() demo, PROG25, 
163-164 
coordinate systems, global vs. 
local, 159 
fill screen, FILLRECT, 164-165 
fillRect() demo, PROG26, 165-166 
initialize/allocate memory for 
RECTs, SETRECT, 159-160 
RECT structures, 159-162 
restore rectangle image, 
RESTRECT, 171-172 
save rectangle image, 
SAVERECT, 169-170 
saveRect( ) and restRect( ) 
demo, PROG28, 172-175 
setRect() and sizeRect( ) demo, 
PROG25, 162-163 
size of screen, SIZERECT, 161 
TSTRUCT.H, 159 
windows vs., 159 
remove-stack probe optimization 
(/Gs), 1, 2, 14-18 
REMVWIND, 190-191 
RESTRECT, 171-172 
RESTSCRN, 130-132 
RMVCUR, 93-95 
rotate functions, Irtol(), Irtor(), 
rotl(), rotr(), 13 


S 
SAVERECT, 169-170 
SAVESCRN, 130-131 
SCLOC, 96-97 
screen-handling routines, 107-135 
attrioutes, video, 107 
change string of attributes, 
VDATTR, 125-126 
clear screen, SCRNCLR, 109-110 
color, intensity, blink defines, 
TSTRUCT.H, 109 
direct video access 
initialization, VIDINIT, 110-113 
direct video access method, 107 
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screen-handling routines, (cont) 
horizontal line to screen, 
VDHORIZ, 121-122 


make attributes, MKATTR, 108-109 


make tokens, MKTOKEN, 108 
mkToken( ) test, PROG15, 
108-109 
read character/attribute from 
screen, VRDCHAR, 128-130 
restore screen, RESTSCRN, 
130-132 
save screen, SAVESCRN, 130-131 
saveScrn() and restScrn( ) test, 
PROG21, 132-133 
screen-write Comparison, 
PROG16, 115-120 
scrnClr( ) test, PROG14, 110-111 
tokens, 107 
vdAttr( ) demo, PROG19, 125-128 
— vdAttr() test, PROG20, 129-130 
vdChar( ) test, PROG15 
vdHoriz( ) test, PROG17, 121-123 
vdVert( ) test, PROG18, 123-125 
vertical line to screen, VDVERT, 
123-125 
video RAM, 107 
vidinit() test, PROG15, 111 
write character/attribute to 
screen, VDCHAR, 113-114 
write string to screen, 
VDWRITE, 115-117 
screen-write comparison 
program, PROG16, 115-120 
SCRNATTR, 267 
SCRNCLR, 109-110 
SETATTR, 196 
SETBORD, 194-195 
SETRECT, 159-160 
SETTITLE, 191-192 
SETWIND, 192-194 
shell program, interfaces, 
menu-bar/drop-down, 
PROG36, 319-331 
shell program, Lotus-style 
interface, PROG35, 265, 
288-293 
showLotus( ), 280-288 
size optimization, 1 
SIZECUR, 101-104 
SIZEIMG, 187-188 
SIZERECT, 161 
small memory model 
compile-and-link batch 
(CSMALL.BAT), 93 
compile-code batch file 
(CCS.BAT), 83-85 
create file (TABS.LIB), 82, 83, 91 
speed optimization (/Ot), 1, 2, 8, 60 
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SSIZECUR, 101-104 
string functions 
append, strcat(), 13 
BDWRITE program, 52-54 
compare, stremp(), 13 
copy, strcopy(), 13 
length, strlen(), 13 
set, strset(), 13 
write, printf(), 52 
STRTWIND, 196-197 
S___SHAPE cursor assembly 
binding, 99-100 


T 
TABL.LIB large memory model, 
82, 83, 91 
TABM.LIB medium memory 
model, 82, 83, 91 
TABS.LIB small memory model, 
82, 83, 91 
testing, 61 
TIMER code, 3-8, 81 
library management, 82, 83, 90 
nested-loop tester (PROG1 
program), 8-12 
tokens, screen-handling routines, 
107 
TPROTO.H function prototype 
header file, 63-69, 88 
TSTRUCT.H defines and 
structures header, 69-73 
rectangle routines, 159 
screen-handling routines, 109 


unsafe-loop disable optimizations, 1 
user interfaces (see interfaces) 
USES directive, ix, 51-60, 60 


V 
VDATTR, 125-126 
VDCHAR, 113-114 
VDCHR, 266-267 
vdEdit( ), keyboard-routines editor, 

144-154 
VDHORIZ, 121-122 
VDVERT, 123-125 
VDWRITE, 115-117 
video RAM, 107 
VIDINIT, 110-113 
VRDCHAR, 128-130 


W 
window-creation routines, 179-224 
abort progra, EXIT___BAD, 188 
allocate memory, SETWIND, 
192-194 
border type selection, 
SETBORD, 194-195 


change display attributes, 
WVDATTR, 197-198 

destroy WIND structure, free 
memory, DYSWIND, 195-196 
display previous 
window, DISPWIND, 189-190 
horizontal line, WVDHORIZ, 199 
mouse-and-keyboard driven 
menu demo, PROG33, 236 
move cursor downl/left, 
PUTCRLF, 180-181 

put character to screen, 
PUTCHR(), 179-180 

read rectangle image to 
memory, RDIMG, 186-187 
read screen token, 
WVRDCHAR, 202 

read window to buffer, 
RDWIND, 189 

rectangles vs., 159 

remove previous window, 
REMVWIND, 190-191 

set screen attributes, SETATTR, 196 

show new window, STRTWIND, 
196-197 

size required for window, 
SIZEIMG, 187-188 

TABS.LIB listing, 220-224 

text window display demo, 
PROG29Q, 179, 202-206 

title centered, SETTITLE, 191-192 
vertical line, WVDVERT, 200-201 
vertical scroll-bar (Lotus) demo, 
PROG30, 179, 206-220 

write border to screen, 
WRBOX, 183-185 

write previous window to 
screen, WRWIND, 185-186 

write rectangle to screen, 
WRIMG, 182 

write screen token to window, 
WVDCHAR, 198-199 

write string to cursor location, 
PUTSTR, 181 

write string to window, 
WVDSTR, 200 

write string to window, 
WVDWRITE, 201 

WRBOX, 183-185 

WRIMG, 182 

WRWIND, 185-186 
WVDATTR, 197-198 
WVDCHAR, 198-199 
WVDHORIZ, 199 
WVDSTR, 200 
WVDVERT, 200-201 
WVDWRITE, 201 
WVRDCHAR, 202 
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If you are intrigued with the possibilities of the programs included in Optimizing Microsoft C 
Libraries (TAB Book No. 3735), you should definitely consider having the ready-to-run disk con- 
taining the software applications. This software is guaranteed free of manufacturer’s defects. (If 
you have any problems, return the disk within 30 days, and we’Il send you a new one.) Not only will 
you save the time and effort of typing the programs, the disk eliminates the possibility of errors 
that can prevent the programs from functioning. Interested? 
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oo C Version 6.0 introduces many options that 
set new standards of speed and compactness in program 
development. How can you get the most from 6.0’s enhanced 
productivity tools when programming today’s most advanced 
computers? Learn how to build “hot” C function libraries 
that you can use over and over again to create tighter, faster 
program files and more user-friendly interfaces, screens, and 
windows. Optimizing Microsoft C Libraries can show 
you how. 


Len Dorfman teaches you professional methods for turning 
MSC 6.0 functions into state-of-the-art code libraries that 
can handle everything from cursors and keyboards to menus 
and mice. Step-by-step instructions and ready-to-use sample 
routines show you exactly how the latest library optimization 
techniques can be applied to .EXE file construction for 
maximum speed and efficiency. Even if you’re new to C 
programming, Dorfman’s practical, no-nonsense approach to 
C library development can give you a veteran programmer's 
touch when producing real-world commercial applications. 


Add the power of C libraries to your programming 
environment. Learn how to... 


* Cut the fat out of your program code using the new 
FASTCALL convention and in-line assembler 


’ Build easy-to-use menus and shells for Windows 3 


Take advantage of the Programmer’s Workbench and 
NMAKE facility 


” Write mouse- and keyboard-driven event queue handlers 


Know when to use in-line assemble and when to 
use MASM 


Create professional-looking interfaces in minutes 
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